Предмет: Информатика,
автор: sashabobrov217
В ПАСКАЛЕ написать решение задачи: найти сумму и произведение нечетных и кратных 3 чисел из диапазона 100, 110, 120...n
nastikots:
Если диапазон начинается со 100 и изменяется с шагом 10, то нечётных чисел в нём не будет.
Можешь ли ты написать программу?
Могу, но выводить она будет первоначальные значения переменных для суммы и произведения или сообщение об отсутствии чисел нечётных и кратных 3.
Хм, ну давай
program z1;
var a,n,s,p: integer;
begin
s:=0;
p:=1;
a:=100;
write ('n = ');
readln(n);
repeat
if (a mod 2 <> 0) and (a mod 3 = 0) then
begin
s:=s+a;
p:= p*a
end;
a:=a+10;
until a>n;
if s=0 then writeln('Нечётных и кратных 3 чисел не было')
else
begin
writeln('s = ',s);
writeln('p = ',p)
end
end.
var a,n,s,p: integer;
begin
s:=0;
p:=1;
a:=100;
write ('n = ');
readln(n);
repeat
if (a mod 2 <> 0) and (a mod 3 = 0) then
begin
s:=s+a;
p:= p*a
end;
a:=a+10;
until a>n;
if s=0 then writeln('Нечётных и кратных 3 чисел не было')
else
begin
writeln('s = ',s);
writeln('p = ',p)
end
end.
Ответы
Автор ответа:
0
Ответ:
скажи, если не то
Объяснение:
program ThreeMultSum;
var sum, n: integer;
i, mult: longint;
begin
sum := 0;
mult := 1;
i := 100;
readln(n);
while i <= n do begin
if (i mod 3 = 0) and (i mod 2 <> 0) then begin
writeln(i);
sum := sum + i;
mult := mult * i;
end;
i := i + 1;
end;
writeln(sum);
writeln(mult);
end.
Подожду ответ от более опытного
Похожие вопросы
Предмет: Русский язык,
автор: Эльза1314829
Предмет: Английский язык,
автор: sumga76
Предмет: Английский язык,
автор: konfetko1991
Предмет: История,
автор: Fedorov72002
Предмет: Физика,
автор: Marusya261