Вывести на экран числа от a до b кратных 3 или оканчивающихся на 3, посчитать их сумму. А так же посчитать количество чисел не удовлетворяющих условию.
Решить оператором While? a до b = 1 до 15
Ответы
Ответ дал:
0
var i,a,b,s,n:integer;
begin
writeln('Введите A');
read(a);
writeln('Введите B');
read(b);
writeln(' ');
for i:=a to b do begin
if ((i mod 3=0)or(i mod 10=3)) then writeln(i)
else n:=n+1; e
nd;
s:=s+i;
writeln(' ');
writeln('Сумма чисел=',s);
writeln('Чисел не подходят:',n)
end.
begin
writeln('Введите A');
read(a);
writeln('Введите B');
read(b);
writeln(' ');
for i:=a to b do begin
if ((i mod 3=0)or(i mod 10=3)) then writeln(i)
else n:=n+1; e
nd;
s:=s+i;
writeln(' ');
writeln('Сумма чисел=',s);
writeln('Чисел не подходят:',n)
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад