Question

ИНФОРМАТИКА. ПАСКАЛЬ(ЯЗЫК ПРОГРАММИРОВАНИЯ) Задача 1. Создайте программу, определяющую, какой сейчас сезон по введённой температуре воздуха:от 0 до -30 0С – зима; от +20 до +40 0С – лето; иначе (от +1 до +19 0С) - весна или осень.

Задача 2. Составить программу, вычисляющую стоимость покупки с учетом скидки: если покупка превышает 1500 р., то начисляется скидка 3%, если превышает 2000, то начисляется скидка 5%. Выше 4000 - скадка 7%. На вход - стоимость покупки, выход - сколько нужно оплатить.

Решать по такому типу:

a,b,c:integer;
begin
writeln('Введите три числа: '); readln(a,b,c);
if (a>b) and (b>c) then
writeln(a,b,c);
if (a>b) and (b>c) then writeln(c,b,a);
if (a>c) and (c>b) then writeln(b,c,a);
if (b>a) and (a>c) then writeln(c,a,b);
if (b>c) and (c>a) then writeln(a,c,b);
if (c>a) and (a>b) then writeln(b,a,c);
if (c>b) and (b>a) then writeln(a,b,c);
end.

Answer 1

первая задача ответ-var x: real;

begin

writeln('введите температуру');

readln(x);

if (x>=-30) and (x<=0) then writeln('зима')else

if (x>=20) and (x<=40) then writeln('лето') else

writeln('весна или осень')

end.

Объяснение:

думаю правельно

Answer 2

тут нада зробити у програмі Рутсон и написати оце потім візьмеш нажмеш ран и побачиш результат