Найти сумму натуральных двузначных чисел, каждое из которых не делится ни на 2, ни на 3

06.02.2013, 12:19. **Показов** 3219. **Ответов** 2

Author24 — интернет-сервис помощи студентам

буду примного благодарен

@Leshiy27 · 07.02.2013, 22:45

Pascal

var i,sum:integer;
begin
for i:=10 to 99 do
if (i mod 2<>0) and (i mod 3<>0) then sum:=sum+i;
writeln('сумма натуральных двузначных чисел, каждое из которых не делится ни на 2, ни на 3 равна ',sum);
readln
end.

вот так как то

@GggDrej · 08.02.2013, 00:28

Pascal

uses crt;
var a,summ:integer;
begin
 a:=11;
 summ:=0;
 while a<99 do 
  begin
   if a mod 3<>0 then summ:=summ+a;
   a:=a+2;
  end;
 writeln('Summa: ',summ);
end.

RiKKiMA
		1
	Найти сумму натуральных двузначных чисел, каждое из которых не делится ни на 2, ни на 3 06.02.2013, 12:19. Показов 3219. Ответов 2 Метки нет (Все метки) буду примного благодарен

	08.02.2013, 00:28

Найти сумму натуральных двузначных чисел, каждое из которых не делится ни на 2, ни на 3

Решение