Нужна программа этого треугольника на паскаль рисунок ниже

1 ответ:

Tandra [14]4 года назад

0 0

Uses drawman;
begin
field(10,10);
ToPoint(1,1);
PenDown;
onvector(3,2);
onvector(1,-2);
ToPoint(1,1);
end.

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

ahhsh

Нажать пуск Ровлвтвовивдвтдвтвдвтвдчтвдвтвдвтудвивдвьм

0 0

4 года назад

johnie [1]

1) 45х45=2025, 2025х55=111375 Ответ: в сообщении 111375 символов.
2) 150х1=150 Ответ: 150 байт
3) 60х27=1620 , 1620:810=0.5 Ответ: 0.5 символов.

0 0

3 года назад

TeiRes

Норберт Винер - это отец кибернетики

0 0

3 года назад

Смерш [21]

Var z,x:real;

i:integer;

a:array [1..10] of real;

begin

readln(z);

for i:=1 to 10 do begin

a[i]:=z*i;

writeln(a[i]);

end;

end.

0 0

4 года назад

ч12

n = int(input())
s = 0
for i in range(n):
m = int(input())
if m<0: s+=m**2
print(s)

0 0

4 года назад