1.Начало
2.Встать
3.Собраться
4.Взять ключи и т.д
5Открыть дверь
6.Обуться
7.Закрыть все двери
8.Нажать на кнопку лифта
9Зайти в лифт
10.Выйти и идти в библиотеку
11.Придти
12.Выбрать книгу
13.Уйти
14.Идти домой
15.Конец
<span>текст "информатика 8 класс" занимает 18 байт.</span>
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(5);
a.PrintLines;
a.Println;
var b := ArrGen(5, i -> 2 * i, 1);
b.Println;
var c := ArrRandom(7, -10, 10);
c.PrintLines
end.
