1. Информатика
  2. Напишите программу на Pascal

Напишите программу на Pascal


Напишите программу на Pascal

grinevvlad98xuy grinevvlad98xuy    2   15.06.2021 11:05    2

Ответы
  15.07.2021 12:13

program m1;

var i,p:integer;

begin

 read(i);

 p:=1;

 while i<10 do begin

   p:=p*i;

   i:=i+2;

 end;

 writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dhgdfnhflk dhgdfnhflk  10.03.2022 02:56
Квадрат n× n будем строить следующим образом. Если n нечетно, то первый квадрат имеет размеры 1× 1, а если четно – 2× 2. Далее последовательно вокруг текущего квадрата прикладываются...
gurboolga gurboolga  10.03.2022 02:48
Как сделать флаг Москвы на питоне в Tkinter?...
нур101 нур101  10.03.2022 02:28
Напишите программу, которая выведет на экран значения функции у = f(x). Аргумент функции x принимает значения от х1 до х2 с шагом Δх. Цикл необходимо организовать с оператора...
Sulaiman00 Sulaiman00  10.03.2022 02:18
Проверьте программы представленных задач, исправьте ошибки. 1. Напишите программу, которая выводит на экран 10 строк следующего содержания: «**++==++**». Решение: program for1;...
Сергей102007 Сергей102007  10.03.2022 02:12
Python! Задание на картинке как сделать герб Москвы...
Ибрагим002 Ибрагим002  12.05.2020 10:56
Создавать. модели. объектов. и событий. в 3D редакторах.​...
лиса266 лиса266  12.05.2020 10:56
Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых...
ailanka87 ailanka87  12.05.2020 10:56
Контрольная работа по информатике (9 класс) Решите в день проведения контрольной (12.05.2020) Задача № 1 Напишите компьютерную программу на Паскале, которая создает массив...
nikomynenyzhen nikomynenyzhen  11.03.2021 14:03
это не совпадение в десятичном коде (если что я сам не знаю зачем мне это)...
Юля9887 Юля9887  11.03.2021 14:04
Составьте программу вычисления функции y:=ax+c/sin(x)+1 на паскале...

Популярные вопросы