Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>
1)4.75 - Это вещественное число, соответственно нужен тип данных REAL, а не Integer
2)
write (a) ---> 5
write ('a') ----> a
write ('a=a', a) ----> a=a5(такого нет среди предложенных)
Ответ:
ответ а
Объяснение:
сд ром диск является ресурсом откуда можно вытащить информацию
Пусть t - искомое время в секундах. За первые t/2 секунд была передана информация 2*t/2=t Мбит, за остальные t/2 секунд - информация 6*t/2=3*t Мбит. По условию, t+3*t=4*t=150 Мбайт=150*8=1200 Мбит, откуда t=1200/4=300 c или 300/60=5 мин. Ответ: 5 минут.
===== PascalABC.NET =====
function GCD(a, b: integer): integer;// НОД
begin
while b <> 0 do
begin
a := a mod b;
Swap(a, b)
end;
Result := a
end;
procedure RedFrac(var a, b: integer);// сокращение дроби
begin
var sgna := Sign(a); // мы должны учитывать знак!
var sgnb := Sign(b); // мы должны учитывать знак!
a := Abs(a);
b := Abs(b);
var d := GCD(a, b);
a := (a div d) * sgna;
b := (b div d) * sgnb
end;
begin
var (p1, q1) :=
ReadInteger2('Дробь 1. Введите числитель и знаменатель:');
var (p2, q2) :=
ReadInteger2('Дробь 2. Введите числитель и знаменатель:');
var p3 := p1 * q1 + p2 * q2;
var q3 := q1 * q2;
RedFrac(p3, q3);
Println(p3, '/', q3)
end.
