Еще раз перезагрузи прогу, перезагрузи девайс
Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию задачи.
Вариант 1. Без операторов цикла.
var
a,b,c,d:integer;
begin
Write('Введите 4 натуральных числа: ');
Read(a,b,c,d);
if a mod 2=0 then Writeln('Корень из ',a,' равен ',sqrt(a));
if b mod 2=0 then Writeln('Корень из ',b,' равен ',sqrt(b));
if c mod 2=0 then Writeln('Корень из ',c,' равен ',sqrt(c));
if d mod 2=0 then Writeln('Корень из ',d,' равен ',sqrt(d));
end.
Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775
Вариант 2. С оператором цикла.
var
i,n:integer;
begin
for i:=1 to 4 do begin
Write('Введите натуральное число: ');
Read(n);
if n mod 2=0 then Writeln('Корень из ',n,' равен ',sqrt(n))
end
end.
Пример решения
Введите натуральное число: 3
Введите натуральное число: 8
Корень из 8 равен 2.82842712474619
Введите натуральное число: 16
Корень из 16 равен 4
Введите натуральное число: 12
Корень из 12 равен 3.46410161513775
Вариант 3. С массивами
var
i:integer;
a:array[1..4] of integer;
begin
Write('Введите 4 натуральных числа: ');
for i:=1 to 4 do Read(a[i]);
for i:=1 to 4 do
if a[i] mod 2=0 then Writeln('Корень из ',a[i],' равен ',sqrt(a[i]))
end.
Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775
Это ресурс эсли это ифазайка
Program n1;
var a,c,b,num: integer;
begin
write('введите число: ');
readln(num);
a:= round(num div 100);
c:=round(num mod 10);
b:=round(((num mod 100)-c)/10);
writeln('сотни: ',a);
writeln('десятки: ',b);
writeln('единицы: ',c);
end.
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.