Помогите с паскалем.Задания на фото

+ 0 -

NatashaVihtenko

28 июля 2015 г., 19:25:05 (8 лет назад)

1.
var i,k:integer;
begin
  for i:=1000 to 9999 do
  if (i mod 33=35) or (i mod 34=5) then k:=k+1;
  writeln('Всего ',k,' таких чисел');
  readln
end.
2.
var i,k,sum:integer;
begin
  sum:=0; k:=2;
  for i:=1 to 10 do begin
  sum:=sum+sqr(k);
  k:=k+1;
  end;
  writeln('Ответ: ',sum);
  readln
end.
3.
var i,k,sum:integer;
begin
  sum:=0; k:=100;
  for i:=1 to 7 do begin
  sum:=sum+k;
  k:=k+5;
  end;
  writeln('Ответ: ',sum);
  readln
end.
4.
var i,one,dec,hun:integer;
begin
  for i:=100 to 999 do begin
  one:=i mod 10; dec:=(i mod 100) div 10; hun:=i div 100;
  if ((one=7) or (dec=7) or(hun=7)) and (one+dec+hun=23) then writeln(i);
  end;
  readln
end.

+ 0 -

GEORGY007

28 июля 2015 г., 20:44:39 (8 лет назад)

Где фото