Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
var
i: integer;
begin
for i: =100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then writeln(i);
end.
var a: array[1..100] of integer;
randomize; {чтоб рандом был разный для каждого запуска програмы}
for i: = 1 to 100 do
if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}
else a[i]: =2*random(100);
есличто непонятно - пиши в сообщения, растолкую
Популярные вопросы