найти сумму двузначных положительных чисел сумма цифр которых кратно 7. (паскаль)
5-9 класс
|
Program Summa;
var
n,
l,
a: integer;
m: integer;
b: integer;
k: integer;
begin
Readln(n);
Readln(l);
a:=n div 10;
m:=l div 10;
b:=n mod 10;
k:=l mod 10;
if (a+b) mod 7=0 then write(n,' ');
if(m+k) mod 7=0 then write(n+l);
End.
Попробуй
Другие вопросы из категории
a=1,b=2,c=3, то после обмена должно стать a=3,b=1,c=2. Выполнить трассировку.
Алгоритм: Трассировочная таблица:
ПОЛНЫЙ ОТВЕТ
открытки делала сама в Paint
Читайте также
2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8.
Решить в Паскале
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
них,которые нечетны.Остальные отсавить без изменения.
3.ВВедите коль-во учащихся в группе по инфе и четвертную отметку каждого учащегося. Выч. средний бал успеваемости по инфе в группе за четверь.
4.НАйти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3.
5.Вычислить наименьшее общее кратное 2 чисел (hok (a,b)). Для вычесления воспользуйтесь ФОРМУЛОЙ a*b=HOД*HOK
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.