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

160

274

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

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

Sane1999

Информатика

4,4(62 оценок)

Uses crt; const n=30; type ta=array[1..n] of integer; ts=array[1..n] of string[30]; var i: integer; p,c: ta; s: ts; begin clrscr; for i: =1 to n do begin write('марка автомобиля ',i,': '); readln(s[i]); write('его мощность (л.с.) и стоимость (руб.); '); readln(p[i],c[i]) end; writeln; writeln('автомобили мощностью не более 80 л.с.'); for i: =1 to n do if p[i]< =80 then writeln(s[i]: 30,p[i]: 10,c[i]: 10); readkey; end.