Регистрация
skshhd
20.09.2022 16:00
Информатика
Есть ответ 👍

2. Основы автоматизации задач. Постановка задачи. Алгоритмизация и
программирование. Этапы разработки и
жизненный цикл программ. Структурное и
объектно-ориентированное
программирование. Визуальное и
макропрограммирование.​

157
415
Посмотреть ответы 1

Ответы на вопрос:

ihorrubalko
ihorrubalko
4,8(34 оценок)

2.

var i,s:integer;

begin

for i:=10 to 20 do

s+=i;

write(s);

end.

3.

var

   factorial: longint;

   n, i: byte;

 begin

   write('n = '); readln(n);

     factorial := 1;

     for i:=2 to n do

       factorial := factorial * i;

     writeln('n! = ', factorial);

readln;

end.

6.

program for_;

uses crt;

var i,s:integer;

begin

clrscr;s:=1;

for i:=1 to 16 do

s:=s*i;

writeln(s);

end.

Популярно: Информатика