РЕШИТЕ Задание по информатике! ПОЖалуйста! Срочно!
1. Вычислить произведение нечетных чисел от 40 до 160
2. Вычислить сумму чисел делящихся на 150 от 1500 до 3000
3.Определить кол-во чисел делящихся на 17 от 2510 до 7000
Решение прошу подробное. По паскалю.
Ответы на вопрос
Ответил DRЕDD
0
1. k:=1;
for i:=40 to 160 do
if i mod 2 <>0 then k:=k*i;
write(k);
end.
2. k:=0;
for i:=1500 to 3000 do
if i mod 150=0 then k:=k+i;
write(k);
end.
3.k:=0;
for i:=2510 to 7000 do
if i mod 17=0 then k:=k+1;
write(k);
end.
начало всех программ будет одинаковое:
Program abc;
var i,k:integer;
begin
for i:=40 to 160 do
if i mod 2 <>0 then k:=k*i;
write(k);
end.
2. k:=0;
for i:=1500 to 3000 do
if i mod 150=0 then k:=k+i;
write(k);
end.
3.k:=0;
for i:=2510 to 7000 do
if i mod 17=0 then k:=k+1;
write(k);
end.
начало всех программ будет одинаковое:
Program abc;
var i,k:integer;
begin
Ответил ulia1975
0
Теперь знаю уже на 100%)
Ответил Аноним
0
А лучше ИНОГДА ходить на занятия, чтобы знать, КАКОЙ ЯЗЫК ИЗУЧАЕТЕ
Ответил Аноним
0
Так, отметил себе: ilia1975: не писать решений, может потом вынести мозг.
Ответил ulia1975
0
Бл, я уже точно знаю что я хочу , Напишите решение пожалуйста. Заранее Спасибо.
Ответил ulia1975
0
В Последний раз
Новые вопросы