Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
i: integer;
a: array[1..16]of integer;
begin
for i: =1 to 16 do
a[i]: =random(40)-20;
if a[i] mod 3=0 then write(i,' ');
end;
writeln;
end.
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.
желтый знак - нехватка памяти
все остальное - размер
Популярные вопросы