Запрограммировать решение задач на языке Паскаль.
1) Программа предлагает вычислить выражение 12*6 - 13*3 и ввести ответ с клавиатуры. Если ответ верен, то вывести на экран фразу "Правильно!", иначе - вывести "Ошибка в расчётах!" 2) Программа запрашивает возраст. Если введён воздаст до 14 лет, то программа выводит "Вы ещё не получили паспорт!, иначе - программа выводит "Пасторт вами получен!". 3*) Составьте программу "Покупка". В магазине продают три вида мороженого: Эскимо по цене 50 рублей, фруктовый лёд по цене 30 рублей и пломбир по цене 48 рублей. Программа запращивает "Какое мороженое хотите купить?". Пользователь вводит название сорта мороженого. В ответ на экран выводится стоимость мороженого.
Glupuj
3
17.05.2020 16:53
1
Другие вопросы по теме Информатика
girlvikak
18.03.2021 16:37
lenasimona55
21.04.2020 13:00
suminjenya
12.02.2021 16:41
dias1101
12.02.2021 16:42
ImperatorrPhysics
03.06.2019 01:10
rudens2007
03.06.2019 01:10
igor99kz
03.06.2019 01:10
alexkiop76
03.06.2019 01:10
Популярные вопросы
- Чем он похож на обычного мальчика составьте рассказ наш друг электроник...
2 - 5-6 речень на тему нові пригоди аліси...
2 - Заполните таблицу с круговой диаграммы. всего цветов на клумбе...
2 - 1.what / favourite holiday? when / celebrate? 2. where / celebrate?...
3 - Who is 7 years old? who has got his birthday on the 15th of march?...
3 - Качества хозяйки медной горы ( хозяйки медной ! ) ,а не какая она...
2 - Надо к завтра доклад! тема зодчество. когда появилось где появилось...
1 - Какие художественные средства использует автор к.м.симонов в стихотворении...
1 - Существуют ли 2 прямоуг-ника, чтобы периметр 1-го был больше периметра...
2 - Будьласка меы потрібно написати діалог на одну із цих тем 1) діалог...
2
Задача 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.
Объяснение: