begin write('Введите х: '); readln(x); if (x > 3) and (x <= 7) then writeln('Число ', x, ' входит в промежуток чисел (3;7]') else writeln('Число ', x, ' не входит в промежуток чисел (3;7]'); end.
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ сумма := 0; макс := 0; Вывод.Цепь("Введите число автомобилей: "); N := Приём.Число(); ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ Вывод.Цепь("^Введите скорости:^"); ОТ сч := 1 ДО N ВЫП скор := Приём.Число(); ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН; УВЕЛИЧИТЬ(сумма, скор); ЕСЛИ скор > макс ТО макс := скор КОН; Вывод.Цепь(" ") КОН КОН; Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0); ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
Задача на "сложный процент". Если первоначальная сумма равна k, то при годовом проценте p ее величина S через год составит k+k*p/100 = k(1+p/100). Через два года S составит k(1+p/100)+k*(1+p/100)*p/100 = k(1+p/100)(1+p/100) = k(1+p/100)². Тогда через n лет:
У нас S=2500000, p=4.5, n=33-14=19.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var s:=ReadReal('Целевая сумма;'); var p:=ReadReal('Годовой процент, %:'); var n:=ReadInteger('Количество лет'); Writeln('Сумма начального вложения составит ',S/(1+p/100)**n:0:2) end.
Пример Целевая сумма; 2500000 Годовой процент, %: 4.5 Количество лет 19 Сумма начального вложения составит 1083254.47
x: integer;
begin
write('Введите х: ');
readln(x);
if (x > 3) and (x <= 7)
then
writeln('Число ', x, ' входит в промежуток чисел (3;7]')
else writeln('Число ', x, ' не входит в промежуток чисел (3;7]');
end.