Что выведет данная программа? program p1; var z: integer; function f (n: byte): longint; begin if n=0 then f: =1 else f: =(2*n)*f(n-1); end; begin z: =f(5); writeln (z); end.
// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! №1 begin var (a,k): =readinteger2('укажите количество рабочих и служащих: '); writeln('заработок работника равен ',624750/(a+k)) end. пример укажите количество рабочих и служащих: 15 6 заработок работника равен 29750 №2 begin var y: =readreal('укажите скорость ходьбы, км/ч: '); var x: =readreal('мальчик пробежал, км: '); writeln('затрачено времени на бег, ч: ',x/(3*y): 0: 2) end. пример укажите скорость ходьбы, км/ч: 5.2 мальчик пробежал, км: 12 затрачено времени на бег, ч: 0.77
romka1210
14.06.2022
Компьютерная графика — область информатики , которая изучает методы и способы создания и обработки изображений на экране компьютера с специальных программ. в зависимости от способа формирования изображений компьютерную графику подразделяют на растровую и векторную. растровое изображение - это изображение, в основе которого лежит таблица. достоинства растрового изображения: ⇒ реалистичность изображения; ⇒ возможность изображать на растровом изображении все, что угодно; ⇒ применение к растровым изображениям разнообразных эффектов; ⇒ использование растровых форматов изображений при создании веб-страниц в интернете. недостатки растровых изображений: ⇒ плохое масштабирование растровых изображений; увеличение его без потери качества невозможно; ⇒ невозможность разбить растровое изображение на части и редактировать каждую из них; ⇒ размер растрового изображения больший по сравнению с векторным.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Что выведет данная программа? program p1; var z: integer; function f (n: byte): longint; begin if n=0 then f: =1 else f: =(2*n)*f(n-1); end; begin z: =f(5); writeln (z); end.
выдаст произведение следующих чисел
2*5*2*4*2*3*2*2*2*1=3840