Предмет: Информатика,
автор: Youkek
найти сумму чисел от 50 до 100, кратных 2 и 3.
турбо паскаль!
Ответы
Автор ответа:
0
примерно так:
n массив [50..100]
int s:=0;
for n:=50 to 100 do
if (n mod 2=0) and (n mod 3)=0
then
s:=s+n;
думаю мысль поняли )
n массив [50..100]
int s:=0;
for n:=50 to 100 do
if (n mod 2=0) and (n mod 3)=0
then
s:=s+n;
думаю мысль поняли )
Автор ответа:
0
я не понял
Автор ответа:
0
вот ниже понял
Автор ответа:
0
а тебя нет
Автор ответа:
0
var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
Автор ответа:
0
не правильно, вообще не запускается даже ошибки нету
Автор ответа:
0
duplicate idintifier ошиька на 3ю строчку
Автор ответа:
0
Там вме правильно и работает,возможно вы невнимательно переписали текст
Интересные вопросы
Предмет: Физика,
автор: baskov8
Предмет: История,
автор: angelinka1908
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: valyatiberneac