Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 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
1л=1дм^3
8л = 0.008 куб метров
5.68кг=0.00568 тон
плотность
0.00568/0.008=0.71 тон на кубометр
500*0.71 = 355 тон влезет в цистерну
1) Условие фармотирование используется для очищение не нужных файлов которые хранятся на флешки или внешнем ностеле
Ответ:
Найдем объем всего сообщения в битах:
1/512 Мб=1024/512 Кб=2 Кб=2*1024 байт=2048 байт=2048*8 бит
Найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов:
(2048*8)/2048=8 бит i=8
найдем мощность алфавита N
N=2 в стапени i
N=256
Ответ: N=256
№2
Найдем сколько занимает один знак:
N=2 в степени i
256=2 в степени i
i=8 бит
Найдем сколько займут введенные символы:
8*100=800 бит=800/8 байт=100 байт
Ответ: 100 байт
№3
Найдем сколько занимает один символ:
N=2 в степени i
65536=2 в степени i
i=16 бит=2 байта
Найдем кол-во символов:
4стр*5мин=20стр
20стр*40строк=800строк
800строк*50 симв=40000симв
Все символы занимают:
40000*2 байта=80000байт
Ответ: 80000байт
Объяснение:
Смотря откуда эта формула и как вы ее применяете
Похоже, что ПИ - просто функция без аргументов, т.е. ничего ставить не надо