var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>
Вот решение я приложил в файле и на картинке
Нельзя:
Есть, пить напитки.
Заходить с грязными руками.
Выключать компьютер часто.
Дергать за провода.
Шуметь и бегать по классу
находится в кабинете на перемене.
Запускать посторонние программы
Удалять, перемещать или переименовывать программы , папки, файлы.