uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
   PenDown;
   OnVector(5,-5);
   OnVector(5,5);
   OnVector(i,-i);
   OnVector(-i,-i);
   OnVector(-5,5);
   OnVector(-5,-5);
   OnVector(-i,i);
   OnVector(i,i);
   PenUp;
end;
end.

0 0

4 года назад

Аня пригласила свою подругу Наташу в гости, но не сказала ей код от цифрового замка своего подъезда, а послала следующее сообщен

Олег Возяков [7]

<span>Выполнив указанные в сообщении действия, Наташа получила следующий код для цифрового замка:
133</span>

0 0

4 года назад

дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных мест

Анжелика25 [629]

Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
<span>end.</span>

0 0

4 года назад

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

Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовате

otos [1.5K]

A = int(input())
k = 0
while a != 0:
k = k+1
a = int(input())
print(k)

Пример:
15
87
60
45
73
0
15
47
5

0 0

2 года назад