В кошику лежать A яблук. Їх потрібно поділити між N учнями, кожен з яких отримує однакову кількість цілих яблук. Надрукувати кількість яблук, які отримує кожен учень, а також кількість яблук, які залишились у кошику.Кодами в пайтон
var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
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. // Конец программы