Program n1;
var i: integer;
begin
for i:=45 to 180 do if(i mod 8=0) then writeln(i);
end.
Всего 16 клеток. Из формулы количества информации:
<span>2^i = 16 получаем i = 4 бита.</span>
2- программы обслуживания сети
3-
система управлениями базы данных -microsoft acces
архиватор- win zip
табличный процессор - microsoft exel
браузер - internet explorer
игра- косынка
var a,t: real;
begin
write('vvedite kolichestvo chasov, kotoroe spit chelovek');
readln(a);
t:=(a*100)/24;
write('chelovek spit ',t:2:0,'%');
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Sqr(ReadReal / 4).Print
end.
<h2>Пример</h2><h3>20.8</h3><h3>27.04 </h3><h2>Пояснения</h2>
ReadReal - осуществаляет ввод вещественного числа (периметра).
ReadReal / 4 - находит сторону квадрата
Sqr(ReadReal / 4) - находит площадь квадрата
.Print - выводит значение того, что стоит до точки