Написать программы к следующим задачам:
а) Вводятся три числа. Вывести на экран сумму з трех чисел
б)Человек делает в магазине покупки. Определите сколько денег у него останется
после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры. КТО ПОМОЖЕТ 30 В ПАСКАЛЕ
Ответы
Ответ дал:
0
Не уверен что правильно, так как не понял что требуют.
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.
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.
Ответ дал:
0
упс всё поломалось, после каждой точкой запятой с новой строчки.
Ответ дал:
0
program chisla;
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.
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.
Ответ дал:
0
Спасибо лови баллы)
Ответ дал:
0
Да не за что, я не уверен что такая прога должна быть.
Ответ дал:
0
хотя бы что то)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад