begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.
Ответ дал: Гость
program fasf;
var
n,q: integer;
begin
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
end.
Ответ дал: Гость
var
i,s: longint;
begin
for i: =20 to 60 do if i mod 5=0 then inc(s,i);
writeln(s);
end.
Ответ дал: Гость
программа определяет какое число было введено пользователем положительное или отрицательное и выводит соответсвующее сообщение
Популярные вопросы