Вопрос по информатике:
1.Дана цифра А. Найти все двузначные числа в которых встречается эта цифра.
2.Вывести на экран все двузначные числа сумма цифр которых делится на 5.
3.Найти среднее арифметическое чисел в промежутке от А до В.
- 10.04.2018 14:20
- Информатика
- remove_red_eye 13259
- thumb_up 30
Ответы и объяснения 1
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.
- 11.04.2018 16:49
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.