Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
1). Намалювати круглий тулуб.
2).Намалювати круглу голову.
3).Намалювати ноги.
4).Намалювати руки.
5).Намалювати очі.
6).Намалювати носа, схожого на моркву.
7).Намалювати усмішку.
8).Намалювати відро на його голові.9).Намалювати шарф.
10).Намалювати куртку.
11).Намалювати рукавиці на руках.
12).Намалювати на ногах взуття.
13).Розфарбувати сніговика.
Для какого из приведённых имён истинно высказывание:
<span>НЕ((Первая буква согласная) ИЛИ (Последняя буква гласная))? </span>
1) Иван
2) Семён
3) Никита
4) Михаил
Пояснение.
Для того, чтобы высказывание было истинным, необходимо, чтобы выражение в скобках было ложным. Логическое «ИЛИ» ложно, когда ложны оба высказывания. Следовательно, первая буква имени должна быть гласной, а последняя − согласной. Таким условиям удовлетворяет только имя «Иван».
Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje