Регистрация
Kira5672
22.01.2023 16:42
Информатика
Есть ответ 👍

Напишите программу, которая находит произведение всех двухзначных чисел, кратных 33.
8 класс информатика

205
466
Посмотреть ответы 2

Ответы на вопрос:

Аллакот888
Аллакот888
4,6(60 оценок)

var i,s:integer;

    p:real;

begin

s:=0;

p:=1;

for i:=33 to 100 do

begin

 if i mod 33=0 then s:=s+i;

 if i mod 33=0 then p:=p*i;

end;

writeln('Сумма кратных 33=',s);

write('Произведение кратных 33=',p);

end.

Объяснение:

ds0708
ds0708
4,6(58 оценок)
1) a: =-5; b: =-2; while (a+b)< a*b do begin a: =2*a; b: =b+1; end; -5 -2 -7< (-5)*(-2)     a=2*-5=-10   b: =-1;     k=1; -11< 10       a=-20   b=0                 k=2; -20< 0         a=-40   b=1     k=3; -39< -40   нет ответ k=3   а числа a=-40   b=1 a=25; b=1; while(a-b)< (a/b) do begin a: =a+10; b: =-3*b; end; a=25       b=1     k=0; 25-1< 25     a=35   b=-3   k=1 28< 35/-3   нет   k=1   a=35   b=-3

Популярно: Информатика