Запрограммировать решение задач на языке Паскаль.
1) Программа предлагает вычислить выражение 12*6 - 13*3 и ввести ответ с клавиатуры. Если ответ верен, то вывести на экран фразу "Правильно!", иначе - вывести "Ошибка в расчётах!" 2) Программа запрашивает возраст. Если введён воздаст до 14 лет, то программа выводит "Вы ещё не получили паспорт!, иначе - программа выводит "Пасторт вами получен!". 3*) Составьте программу "Покупка". В магазине продают три вида мороженого: Эскимо по цене 50 рублей, фруктовый лёд по цене 30 рублей и пломбир по цене 48 рублей. Программа запращивает "Какое мороженое хотите купить?". Пользователь вводит название сорта мороженого. В ответ на экран выводится стоимость мороженого.
1) Программа предлагает вычислить выражение 12*6 - 13*3 и ввести ответ с клавиатуры. Если ответ верен, то вывести на экран фразу "Правильно!", иначе - вывести "Ошибка в расчётах!" 2) Программа запрашивает возраст. Если введён воздаст до 14 лет, то программа выводит "Вы ещё не получили паспорт!, иначе - программа выводит "Пасторт вами получен!". 3*) Составьте программу "Покупка". В магазине продают три вида мороженого: Эскимо по цене 50 рублей, фруктовый лёд по цене 30 рублей и пломбир по цене 48 рублей. Программа запращивает "Какое мороженое хотите купить?". Пользователь вводит название сорта мороженого. В ответ на экран выводится стоимость мороженого.
Answers & Comments
Ответ:
Задача 1)
var a: real;
begin
writeln('Вычислите выражение 12*6 - 13*3');
readln(a);
if a=33 then writeln('Правильно') else writeln('Ошибка в расчётах');
end.
Задача 2)
var a: real;
begin
writeln('Сколько вам лет?');
readln(a);
if a<14 then writeln('Вы ещё не получили паспорт!') else writeln('Паспорт вами получен!');
end.
Задача 3)
program pocupka;
var a: string;
begin
writeln('Какое мороженное вы хотите купить эскимо, фруктовый лёд или пломбир?');
readln(a);
if a='эскимо' then writeln('50 рублей');
if a='фруктовый лёд' then writeln('30 рублей');
if a='пломбир' then writeln('48 рублей');
end.
Объяснение: