Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.
Вполне всё правильно. Я в компьютерах разбираюсь. Всю систему перекрутила с ног на голову. В итоге знаю всё ( не хвастаюсь )
-----------------------------------
Пссссс.... Тебе удачи и печенек)