1.Дана цифра А. Найти все двузначные числа в которых встречается эта цифра. 2.Вывести на экран все двузначные числа сумма цифр которых делится на 5. 3.Найти среднее арифметическое чисел в промежутке от А до В.
1.Дана цифра А. Найти все двузначные числа в которых встречается эта цифра.
2.Вывести на экран все двузначные числа сумма цифр которых делится на 5.
3.Найти среднее арифметическое чисел в промежутке от А до В.
Гость
Ответ(ы) на вопрос:
Гость1)
var a,i :integer;
begin
write('a = '); readln(a);
for i:=10 to 99 do
if (i mod 10 = a) or (i div 10 =a) then write(i,' ');
end.
2)
var i :integer;
begin
for i:=10 to 99 do
if (i mod 10 + i div 10) mod 5 =0 then write(i,' ');
end.
3)
var a,b,i,sum:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
sum:=0;
for i:=a to b do sum:=sum+i;
writeln('Ср. арифм. = ', sum/(b-a+1));
end.
Не нашли ответ?
Похожие вопросы