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.

0 0

1 год назад

Построить в паскале оси координат

Против власти воров

Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>

0 0

3 года назад

Помогите, пожалуйста, как правильно написать формулу в excel чтобы получилось число а не лож Задание по теме Одномерные массивы

LiveMeFire [7]

Если значение x записано в ячейке A1, то формула будет такой:
=ЕСЛИ(A1<=0;A1*EXP(A1);ЕСЛИ(A1<=2;EXP(A1);A1*EXP(-A1)))

0 0

2 года назад