Нарисовать паровоз с колёсами в pascal abs с колёсами через line и cirkle

273

485

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

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

aminazhum

Информатика

4,7(29 оценок)

Не то и получилось) uses graphabc; beginsetwindowsize(900,500); line(200,100,700,100); line(200,100,50,250); line(50,250,700,250); line(700,100,700,250); line(200,100,200,250); line(700,200,100,200); circle(150,250,25); circle(350,250,25); circle(500,250,25); circle(650,250,25); end.

Basrad

Информатика

4,5(71 оценок)

Uses crt; var i,b,x,q: integer; c: real; var a: array [1..3] of integer; begin clrscr; writeln('введите числа'); for i: =1 to 3 do read(a[i]); q: =1; for i: =1 to 3 do begin if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then x: =x+1; if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then b: =b+a[i]; if (a[i] mod 3 = 0) and ( a[i] mod 2 = 1 )then q: =q*a[i]; c: =b/x; end; writeln('среднее арифметическое = ',c); writeln('произведение = ',q); end.