Модуль 3 задание 6

Program KASSA;

Var stoim, summa: real;

Begin

Write(‘Введите стоимость покупки’);

Readln(stoim);

Write(‘Введите вносимую сумму’);

Readln(summa);

while (Summa<=0) or(stoim<=0) do writeln(‘Не корректный ввод. Вводите внимательно!’) if Summa=stoim then writeln(‘Спасибо за покупку!’) else if Summa>stoim

then writeln(‘Возьмите сдачу’, summa-stoim)

else Writeln(‘Доплатите’, stoim -summa)

End.

Программа Касса

Определение переменных

Начало программы

Ввод(summa, stoim);

пока (Summa<=0) или (stoim<=0) то повторять Начало цикла Вывод(Не корректный ввод. Вводите внимательно!); Конец цикла; Если summa= stoim то вывод(спасибо) Иначе если summa> stoim

то вывод(Возьмите сдачу summa-stoim руб.)

иначе вывод(Доплатите stoim -summa руб);

Конец.