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. // Конец программы
first = int(input())
second = int(input())
third = int(input())
if first >= second and first >= third:
print("Максимум равен", first)
elif second > first and second > third:
print("Максимум равен", second)
else:
print("Максимум равен", third)
Объяснение:
first = int(input()) # Вводим первое число с клавиатуры
second = int(input()) # Вводим второе число с клавиатуры
third = int(input()) # Вводим третье число с клавиатуры
if first >= second and first >= third: # Если значение переменной first ≥ значения переменной second И ≥ значения переменной third
Тут мы взяли тот вариант, что все переменные могут быть равны
print("Максимум равен", first) # Максимум равен значению переменной first
elif second > first and second > third: # Если значение переменной second ≥ значения переменной first И ≥ значения переменной third
print("Максимум равен", second) # Максимум равен значению переменной second
else: # Иначе
print("Максимум равен", third) # Максимум равен значению переменной third
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
begin
a:=x; b:=y;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('НОД(',x,',',y,') = ',a);
end
else writeln('Ошибка ввода');
end.
Пример:
x, y:
50 125
НОД(50,125) = 25