Предмет: Информатика,
автор: anya0482
СРОЧНО!!!!!!!!!!!!!!!!!!!!
Приложения:

Ответы
Автор ответа:
1
1)
program raf105;
var a,b,c:real;
begin
write('Введите 2 числа: ');
read(a,b);
if b<>0
then
begin
c:=a/b;
writeln(a,'/',b,'= ',c);
end
else writeln('На ноль делить нальзя!');
end.
2)
program raf105;
var mass,rub:integer;
begin
write('Введите желаемый вес: ');
readln(mass);
write('Введите вашу сумму денег: ');
readln(rub);
if rub>=mass*78
then writeln('Покупка состоится')
else writeln('Покупка не состоится');
end.
Язык программирования PascalABC
Похожие вопросы
Предмет: Английский язык,
автор: micok
Предмет: Алгебра,
автор: maxkharchukov
Предмет: Русский язык,
автор: Аноним
Предмет: История,
автор: Mirinda2436
Предмет: Геометрия,
автор: milanafilippova