Var x,sum: integer; prod: double; begin prod:= 1; sum:= 0; x:= 1; while x<100 do begin if x mod 3 = 0 then begin sum:= sum+x; prod:= prod*x end; inc(x) end; writeln('Сумма=',sum); writeln('Произведение=',prod) end.
Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю) Только первых три
Задача 1: var p: array[1..10] of integer; i:integer; count:integer; begin for i:=1 to 10 do read(p[i]); write('Сколько цифр массива хотите видеть? -> '); readln(count); for i:=1 to count do write(p[i]:3); end.
Задача 2:
var arr: array[1..10] of integer; i:integer; s:integer; count:integer; begin for i:=1 to 10 do begin arr[i]:=Random(-10,10); if(arr[i]<0) then begin writeln(arr[i]:4); s:=s+arr[i]; count:=count+1; end; end; writeln('Среднее значение = ', s/count); end.
Задача 3:
var arr: array[1..10] of integer; i:integer; crat:integer; id:integer; begin for i:=1 to 10 do begin read(arr[i]); crat:=arr[i] mod 3; if(crat = 0) then begin id:=arr[i]; if(arr[i] = id) then writeln('Id = ', i:2); end; end; end.
Program lol (input, output); var a, n, b, i, p,s,g m:integer; c:real; begin n:=Random(10000); writeln (n); a:=n; b:=0; c:=0; p:=1; g:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; g:=g*s; b:=b-1; end; writeln (c); writeln (g); end.
program lol (input, output); var a, b, i, z:integer; begin b:=0; a:=3; z:=0; while a > 2 do begin read (a); z:=0; for I:=2 to a do begin if a mod I = 0 then begin z:=z+1; if (a=I) and (z=1) then b:=b+1; end; end; end; writeln (b); end.
x,sum: integer;
prod: double;
begin
prod:= 1;
sum:= 0;
x:= 1;
while x<100 do begin
if x mod 3 = 0 then begin
sum:= sum+x;
prod:= prod*x
end;
inc(x)
end;
writeln('Сумма=',sum);
writeln('Произведение=',prod)
end.