Самое нижнее, пятое короч
Program qwerty;
var a:integer;
begin
read (a);
if a>0 then a:=a+20
else a:=a-5;
write (a);
end.
Ответ:
Создание документа
На вкладке Файл нажмите кнопку Создать.
В поле Поиск шаблонов в сети введите тип создаваемого документа и нажмите ВВОД.
Совет: Чтобы начать с нуля, выберите Новый документ. Чтобы попрактиковаться в использовании функций Word, воспользуйтесь учебным руководством, например Добро пожаловать в Word, Вставка первого оглавления и т. д.
Объяснение:
<h2>Цикл for</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- for i := 1 to 100 do
- Sum := Sum + Sqr(i);
- Writeln(Sum);
- end.
<h2>Цикл while (предусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- while i <= 100 do
- begin
- Sum := Sum + Sqr(i);
- i := i + 1;
- end;
- Writeln(Sum);
- end.
<h2>Цикл repeat..until (постусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- repeat
- i := i + 1;
- Sum := Sum + Sqr(i);
- until i >= 100;
- Writeln(Sum);
- end.
Так как дробная часть числа 135,3 является периодической, то есть бесконечной, и содержит в двоичном виде нули, то ответ будет такой: в двоичной записи числа 135,3 бесконечное количество нулей.
135,3₁₀ = 10000111,0(1001)₂