4 года назад

Помогите,плез с информатикооой

Знания

Информатика

1 ответ:

Metior844 года назад

0 0

Program a 1;
uses robot;
begin
Field(13,13);
Paint;
Down;
Paint;
Down;
Paint;
Down;
Paint;
Down;
Paint;
End.

Читайте также

Что такое осязательная и обонятельная инфо

HertoG

Обонятельную инф. мы воспринимаем носом, это запахи
осязательную инф. мы воспринимаем касаниями, это то, что мы чувствуем пальцами, руками, ногами и т.д.

0 0

4 года назад

Хей,хелп,сомбади Одномерный массив из 10 элементов заполнить случайным образом числами от -5 до 5. Заменить все отрицательные эл

sergei0903 [56]

PascalABC.net

var
i:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-5,5);
write(a[i]:4);
end;
for i:=1 to 10 do
if a[i]>0 then a[i]:=a[i]+2
else a[i]:=0;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do
write(a[i]:4);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Дан интервал чисел [1, n]. Составить программу, которая чётные числа из этого интервала заменит на соответствующие кубы этих чис

СветлаяСв

Program s;
var
a,b:integer;
begin
readln(b);
for a:=1 to b do
if a mod 2 = 0 then writeln(a*a) else writeln('-1');
end.

0 0

4 года назад

Мне нужно залить целиком лист желтым цветом, а следующие после него должны быть белыми. Как мне это сделать? word 2007

Виталий1242 [12]

Разметка страницы ---> цвет страницы , это фон листа.

следующие , что ? Буквы ? Если буквы то там , буква "А" , тыкаешь и выбераешь.