Написать программы к следующим задачам:
а) Вводятся три числа. Вывести на экран сумму з трех чисел
б)Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры. КТО ПОМОЖЕТ 30 В ПАСКАЛЕ
а) Вводятся три числа. Вывести на экран сумму з трех чисел
б)Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры. КТО ПОМОЖЕТ 30 В ПАСКАЛЕ
More Questions From This User See All
Answers & Comments
program chisla;var a,b,c,d,e,f,i,r: integer;beginwrite('Введите первое число:');readln(a);write('Введите второе число:');readln(b);write('Введите третье число:');readln(c);writeln('Сумма трех чисел:',(a+b+c));write('Стоимость перчаток:');read(e);write('Стоимость портфеля:');read(f);write('Стоимость галстука:');read(i);r:=(a+b+c)-(e+f+i);writeln('Кол-во денег оставшиеся после покупки:',r);end.
var a,b,c,d,e,f,i,r: integer;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);
write('Введите третье число:');
readln(c);
writeln('Сумма трех чисел:',(a+b+c));
write('Стоимость перчаток:');
read(e);
write('Стоимость портфеля:');
read(f);
write('Стоимость галстука:');
read(i);
r:=(a+b+c)-(e+f+i);
writeln('Кол-во денег оставшиеся после покупки:',r);
end.