//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
5) Цикл Пока не сундук, повторять:
Шаг вперед
Если впереди препятствие,
выполнить: Поворот направо
Конец цикла
Только забрать алмаз не получится.
6) Цикл Пока не сундук, повторять:
Шаг вперед
Если слева НЕ препятствие,
выполнить: Поворот налево.
Конец цикла
1 байт=8 бит
1Кбайт=1024байт
1Мбайт=1024Кбайт
1Гбайт=1024Мбайт
Вес твоего сообщения 61 байт. 61*8=488битов
1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:
var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.