Определите что будет напечатано в результате работы следующей программы алг prim_1_3 нач цел х у z x: - id743905220221030 от ania47 30.10.2022 18:14

Question

Информатика: Определите что будет напечатано в результате работы следующей программы алг prim_1_3 нач цел х у z x: =10 y: =47 z: =24 x =mod(x+y,26) z: =mod(z+x,10) вывод z кон паскаль program prim_1_3 var x y z integer x=10 y=47 z=24 x=(x+y) mod 26 z=(z+x) mod 10 writeln(z) end

ania47 · Accepted Answer

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.

MOGZ ответил