var m, n, k, r, sum : integer;
begin
write('Введите цену яблок: '); read(r);
write('Введите цену апельсинов: '); read(k);
write('Введите кг яблок: '); read(m);
write('Введите кг апельсинов: '); read(n);
sum := r*m + k*n;
write('Общая стоимость покупки: ',sum);
end.
Книга Михаель Кофлер Linux Полное руководство 2010
Ты не знаешь информатику-ты получил плохую оценку! Причина и следствие... или я не прав?!))))
Var n, i: Integer;
sum: Double;
a: Array[1..1000] of Double;
begin
ReadLn(n);
for i:=1 to n do Read(a[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+a[i];
a[8]:=sum;
WriteLn('--');
for i:=1 to n do Write(a[i]:0:3, ', ');
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше