Const n=50;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random (21)-10;
if a[i]=0 then k:=k+1;
write (a[i]:4);
end;
writeln ('кол-во нулей =',k);
end.
В 1 байте 8 бит, значит 4*8=32бита
Program five;
uses crt;
begin
writeln('-5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8');
end.
это не через цикл if, а просто выписаны числа.
Или тебе именно через цикл if надо?
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
Word 7?
на вкладке "Анимация" ставишь галочку на "Автоматически после:" ...и вводишь сколько тебе надо секунд...
...затем на вкладке "Показ слайдов" самая первая кнопка слева - "показ слайдов с начала" нажимаешь - и вперед...)))
... еще на вкладке "Показ слайдов" --- "Настройка демонстрации" откроется окошко... в нем поставить : смена слайдов <u>по времени</u>