Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a: integer;
begin
readln(a);
writeln(a*(a div 10 + (a mod 10)*10));
end.
var a: array[1..10] of integer;
i,s: integer;
randomize;
for i: = 1 to 10 do begin
a[i]: = random(100);
s: =s+a[i];
end;
writeln(s);
i,mk,pk,s,p: integer;
p: =1;
a[i]: = random(30+10)-10;
if a[i]> =0 then begin
pk: =pk+1;
end
else begin
mk: =mk+1;
p: =p*a[i];
writeln(pk,s,mk,p);
Популярные вопросы