Написать программы к следующим задачам:
а) Вводятся три числа. Вывести на экран сумму з трех чисел
б)Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры. КТО ПОМОЖЕТ В ПАСКАЛЕ 89 БАЛОВ
а) Вводятся три числа. Вывести на экран сумму з трех чисел
б)Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры. КТО ПОМОЖЕТ В ПАСКАЛЕ 89 БАЛОВ
More Questions From This User See All
Answers & Comments
var a,b,c,d:real;
begin
writeln ('Введите значения трёх чисел:');
read (a);
read (b);
read (c);
d:=a+b+c;
write ('Сумма этих трёх чисел = ');
write (d);
end.
в GPPGParserScanner.GPPGParser.DoAction(Int32 action)
в QUT.Gppg.ShiftReduceParser`2.Reduce(Int32 ruleNumber)
в QUT.Gppg.ShiftReduceParser`2.Parse()
в PascalABCCompiler.PascalABCNewParser.GPPGParserHelper.Parse(Stri
var a,b,c,d,e,k:real;
begin
writeln ('Сколько денег у человека перед покупками?');
read (c);
writeln ('Сколько стоят перчатки?');
read (a);
writeln ('Сколько стоит портфель?');
read (b);
writeln ('Сколько стоит галстук?');
read (d);
e:=a+b+d;
k:=c-e;
write ('Осталось денег: ');
write (k);
end.