Помогите срочно)) 1. Для создания сладкого буклета необходимо от 20 до 40 конфет . Ввести количество купленных конфет и определить хватит ли создания. Вывести ответ хватит или не хватит. 2. Вывести корни квадратные из всех чисе...
Помогите срочно))
1. Для создания сладкого буклета необходимо от 20 до 40 конфет . Ввести количество купленных конфет и определить хватит ли создания. Вывести ответ хватит или не хватит.
2. Вывести корни квадратные из всех чисел от a до 50. А вводится с клавиатуры
5. Вычислить функцию S=10x для Sнач =1, для положительного значения х, х вводится с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьvar
a: longint;
begin
readln(a);
writeln(a >= 20 ? 'Хватит!' : 'Не хватит');
end.
var
A: integer;
begin
readln(a);
for i: integer := a to 50 do
writeln(i, ' => ', sqrt(i));
end.
var
x: integer;
begin
readln(x);
writeln('s = ', 10 * x);
end.
Не нашли ответ?
Похожие вопросы