сервис вопросов и ответовДаны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо
5-9 класс|
|
JessikaR
24 июня 2013 г., 12:33:03 (10 лет назад)
Albert1127
24 июня 2013 г., 15:12:23 (10 лет назад)
Program Zadacha;
Var a: Array [1..3] of Integer;
sum, i: Integer;
Begin
WriteLn('Введите 3 числа через пробел');
For i := 1 To 3 Do
Read(a[i]);
For i := 1 To 3 Do
If (a[i] Mod 2 = 0) And (a[i] Div 10 = 1) Then
sum := sum + a[i];
WriteLn(sum);
ReadLn;
End.
Ответить
Другие вопросы из категории
підрахувати суму всіх натуральних чисел, які діляться на 3 і не перевищють деякого числа N. паскаль, цикл for. думаю, будет примерно
так:
program zad;
var i,r,n:integer;
begin
writeln ('введіть число n');
readln(n);
for i:=i<n and (i mod 3=0) do
begin writeln (r:=...);
end;
readln;
end.
не знаю как найти сумму
автомобиль проехал три участка пути разной длины с разными скоростями.
найдите среднюю скорость автомобиля
Два сообщения содержат одинаковое количество символов. Количество информации в первом тексте в 2,5 раза меньше, чем во втором. Сколько символов
содержат алфавиты, с помощью которых записаны сообщения, если известно, что размер каждого алфавита не превышает 32 символов и на каждый символ приходится целое число битов?
Читайте также
Ребятки!!!!ПОмогите пожалуйста очень срочно!!!! Дан файл f компоненты которого действительные числа.Найти сумму компонентов
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
ПОМОГИТЕЕЕЕ!!!:С Введите с клавиатуры 5 положительных чисел.Вычислите сумму тех из них,которые делятся на 4 и при этом заканчиваются на
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
1.Даны 3 целых числа, вывести те из них которые являются чётными. Срочно!!! 2.Даны 4 вещественных числа, определить сколько из них
отрицательных.Срочно!!!
1.С клавиатуры вводится 3 числа. Найти сумму только из положительных чисел.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
1)Вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
Вы находитесь на странице вопроса "Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.