1)2
2)4
3)4
4)1
5) 2
оказывается необходимо минимум 20 символом поэтому пишу этот комментарий.
Program n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while a>=0 do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
С=22 mod 22+(22 div 8 )=22 mod 24=92
Привет, не против, если я тебе это утром сделаю? в brainly есть изменение ответа; я хорошо разбираюсь в рынке компьютерных железок, просто сейчас времени нет. не критично по времени?
Program k2;
uses crt;
Var b,i,p:integer;
begin
clrscr;
Write('Vvedite b bolyshe 1 i menyshe 20 = ');
readln(b);
p:=1;
for i:=1 to b do begin
p:=p*i;
end;
write('Proizvedenie = ',p);
readln;
End.