"Пока" - while если правильно понял
"Если" - if
цикл с параметром - for
while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным
Например:
while <условие> do
<операция>
for - действие выполняется до того, пока не выполниться столько - то раз
Например:
for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз
<операция>
if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false)
Например:
if <условие>
then <операция>
else <операция>
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
Устройство управляющее работой графического дисплея
Находим сколько бит информации несет 1 цвет по формуле Хартли N=2^i => 256=2^8 => 8 бит
Формула объема V=I*X*Y => 8*1280*1024=10485760 бит переведем в байты, т.е. разделим на 8=1310720 байт
правильный ответ Г
2)
const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
s := 1;
for i := 1 to n do begin
a[i] := random(5);
write(a[i], ' ');
if(a[i] > 1) then s := s * a[i];
end;
writeln;
writeln('Произведение эл. > 1 : ', s);
end.
3)
const n = 8;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := 100000 + random(10000);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольшее кол-во населения: ', max);
end.