Ну если код программы такой
var s,n:integer;
begin
s:=0;
for n:=6 downto 3 do
s:=s+1;
writeln(s);
<span>end.
то s=4
это если я правильно код с фото понял</span>
Ответ:
50 байтов=400бит
Объяснение:
потому что там 48 букв и ,'! в итоге 50
If - если
Then - то
Else - иначе
Например:
C:= A - B;
(Если С больше нуля то)
If C > 0 then begin
(Вывод о том что)
Writeln(число положительное);
...
(Иначе оно)
End esle
(Может быть только отрицательным)
Writeln(число отрицательное);
...
Это же можно проделать с двумя if(если)
If C > 0 then begin
Writeln(число положительное);
...
(Если С меньше нуля)
If C < 0 then begin
Writeln(число отрицательное);
...
<span>38 ∙ 60 = 2280 байт информационный объем одной
страницы, 1.44 = 1509949,44 байт, 1509949,44 : 2280 = 662,26, следовательно поместится на дискете 662 страницы</span>