Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
14; 13; 18; 19.
Вот и всё!
Program Maslovaalisa;
const n=7;
var last: array[1..n] of integer;
var new: array[1..n] of integer;
i: integer;
begin
writeln('********************************');
for i:=1 to n do
begin
writeln('Введите температуру за ',i,'-й день недели: ');
write(' - в прошлом году ');readln(last[i]);
write(' - в этом году ');readln(new[i]);
end;
writeln('*** alphaues is thinking... ***');
writeln();
for i:=1 to n do
begin
if last[i] > new[i] then
writeln('В ',i,'-й день недели в прошлом году было теплее, чем в этом. Бр-р-р...')
else
if last[i] < new[i] then
writeln('В ',i,'-й день недели в прошлом году было холоднее, чем в этом. Уф-ф-ф...')
else
writeln('Удивительно! В ',i,'-й день недели в прошлом году была такая же температура, как в этом!');
writeln('********************************');
end;
end.
Var a,b,s,u:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=a+b;
u:=2*s;
writeln('u = ',u);
end.
Пример:
<span>a = 5
b = 8
u = 26</span>
- птицы живут по отдельности, но зимой улетают в тёплые края
- рыбы в течение года перемещаются хаотично, но во время нереста собираются в косяки и перемещаются в одном направлении
отметь как лучший, пожалуйста