Донат
4 год назад
Вывести квадраты чисел от А до В (А<В, вводятся с клавиатуры) в обратном порядке с шагом 0,5. ЦИКЛ WHILE (ПАСКАЛЬ)
ОТВЕТЫ
Kirsi-Kaisa Maarit
Nov 28, 2020
begin
var a := readinteger;
var b := readreal;
while (b >= a) do
begin
print(b * b, ' ');
b := b - 0.5;
end;
end.
begin // Начало программы
var a := readinteger; // Считываем целочисленную переменную a с клавиатуры
var b := readreal; // Считываем вещественную переменную b с клавиатуры
while (b >= a) do // Пока значение переменной b ≥ значению переменной а
begin // Начало цикла
print(b * b, ' '); // Выводим квадрат числа с пробелом
b := b - 0.5; // Уменьшаем переменную b на 0.5
end; // Конец цикла
end. // Конец программы
202
Смежные вопросы: