В право. Робот іде лева на право!!
снеговик .
начало
скатать большёй шар
потом два поменьше
потом поставить на большёй 2 поменьше
потом воткнуть нос-морковку
скатать 2 малюсеньких шара и прикрепить к туловищу
вставить метлу
одеть вдро на голову
одеть шарф
сделать глаза и рот -угольки
конец
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=(ArrRandom(10,-100,100),ArrRandom(10,-100,100));
a.Println; b.Println;
end.
program raf105;
const
n = 3;
var
a:array[1..n,1..n] of integer;
i,j:integer;
x:boolean;
begin
for i:=1 to n do
begin
writeln('Введите три элемента строки №',i,' по очереди');
for j:=1 to n do
readln(a[j,i]);
end;
writeln('Номера строк в которых все элементы положительные и чётные:');
for i:=1 to n do
begin
if x
then writeln(i-1);
x:= true;
for j:=1 to n do
if x and (not(a[j,i]>0)) or (not((a[j,i] mod 2)=0))
then x:=false
end;
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Заполни пустые ячейки таблицы.<span>Слово Значение слова
Понятие помогите</span>