Question

ПОМОГИТЕ,СРОЧНО!!!!!!.Дано 15 чисел.Найти сумму тех чисел,которые кратны двум. нужно эту задачу сделать в while до завтра.

Answer 1

program chisla;
var i,S:integer;
begin
  i:=1;
  while i<=15 do
   begin
   begin
    if i mod 2 = 0 then 
    S:=S+i;
end;
i:=i+1;
end;
  write(S);
end.
__________________________________________________________________
  

pogram chislo;
var i,P: integer;
begin
i:=1;
P:=1
while i<=50 do
begin
begin
if (i mod 10 = 3) or (i mod 10 = 6) then
P:=P*i;
end;
i=i+2;
end;
write(P);
end.

Answer 2

а можешь еще такую задачу написать?даны числа с интервалом с 1 до 50 с шагом 2.найти произведение тех чисел,у которых последняя цифра 3 или 6 и посчитать количество остальных.тоже в while надо,тоже на завтра.просто меня не было тогда когда объясняли тему,потому и не могу понять как писать :(

Answer 3

Добавил в решение. И посмотри, я в 1 задаче исправил кое что.