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.
var
i: integer;
sum40, sumdi: longint;
begin
sum40 := 0;
sumdi := 0;
while true do
begin
read(i);
if i = 0 then break;
if i > 40 then sum40 := sum40 + 1;
if (i>=10) and (i<=99) then sumdi := sumdi + 1;
end;
writeln('Больше 40: ', sum40);
writeln('Две цифры: ', sumdi);
end.