Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Записать в переменную B, результат сложения числа 7 и числа хранящегося в переменной K.
Объяснение:
var d,i: integer;
s: string;
begin
read(d);
s: =str(d);
for i: = 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
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);
Популярные вопросы