Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо
5-9 класс
|
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.
Другие вопросы из категории
так:
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.
не знаю как найти сумму
найдите среднюю скорость автомобиля
содержат алфавиты, с помощью которых записаны сообщения, если известно, что размер каждого алфавита не превышает 32 символов и на каждый символ приходится целое число битов?
Читайте также
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
отрицательных.Срочно!!!
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?