Составьте программу которая нарисует в паскаль абс треугольную призму..

214

446

Посмотреть ответы 2

Ответы на вопрос:

grekorim1998a

Информатика

4,6(89 оценок)

//pascalabc.net 3.2 сборка 1318 uses graphabc; const h=300; begin maximizewindow; line(0,100,400,100); line(0,100,200,300); line(400,100,200,300); line(0,100,0,100+h); line(400,100,400,100+h); line(200,300,200,300+h); line(0,100+h,400,100+h); line(0,100+h,200,300+h); line(200,300+h,400,100+h); end.

nelindos18

Информатика

4,6(79 оценок)

Uses crt; var a,b,c: array[1..100] of integer; i,n: integer; begin writeln('размер массивов? '); read(n); writeln('элементы 1-го массива? '); for i: =1 to n do read(a[i]); writeln('элементы 2-го массива? '); for i: =1 to n do read(b[i]); for i: =1 to n do begin c[i]: =a[i]+b[i]; write(c[i],' '); end; end.