решить задачу через case(множественный выбор),через if я сам умею.Вычислить величину скидки.Скидка в - id1476851320220816 от lllGlitcherlll 16.08.2022 10:09

Question

Информатика: решить задачу через case(множественный выбор),через if я сам умею.Вычислить величину скидки.Скидка в 3% предоставляется,если сумма покупки больше 500 рублей, в 5% - если сумма больше 1000 рублей, 8% при стоимости покупки свыше 1500 рублей! Входные данные: Сумма покупки. нажмите [Enter] - 640 Ваша скидка 3% Сумма скидки: 19.20 руб.

lllGlitcherlll · Accepted Answer

Задание №1  var s,v,t,a:real;  begin  writeln( Введите скорость, ускорение и время соотвественно );  read(v,a,t);  s:=v*t+(a*sqr(t))/2;  writeln( Расстояние S = ,s);  end. Задание №2 var a,b,c,d,m,n:integer;  begin  writeln( Введите ширину и высоту комнаты );  read(a,b);  writeln( Введите размеры окна );  read(c,d);  writeln( Введите размеры двери );  read(m,n);  writeln( Площадь стен для оклеивания обоями = ,a*b-c*d-m*n);  end. Задание №3 var a,b:real;  begin  writeln( Введите два числа );  read(a,b); ...

MOGZ ответил