Войти Регистрация Спроси ai-bota

ответ 81, но у меня почему то выводит 1 var s,k: integer; begin s: =1; for k: =3 to 0 do s: =s*3; write(s); end. что неправильно?

Нажмите на рекламу ниже и сразу увидите ответ

↓

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

alexei2016111

20.12.2021 09:53

С++. напишите программу, которая находит в массиве количество элементов, равных максимальному. первая строка содержит размер массива n . во второй строке через пробел n чисел...

баке6

20.12.2021 09:53

Внекоторой папке хранился файл zadaca10. после того, как в этой папке создали папку и переместили в нее файл zadaca10, полное имя файла стало d: \klass8\math\zadaci\zadaca10....

Tokuz

22.04.2020 04:45

Доступ к файлу user.doc, находящемуся на сервере school.ru, осуществляется по протоколу ftp. в таблице фрагменты адреса файла закодированы цифрами от 1 до 7. запишите последовательность...

Dag18y5557hvvhi

22.04.2020 04:45

Нужно найти наименьшее значение второго слева байта маски. ip узла 217.119.130.15, адрес сети 192.103.0.13 как такое вообще возможно? ¿...

9854123g

22.04.2020 04:45

Уисполнителя вычислитель две команды, которым присвоены номера: 1. умножь на 3 2. прибавь 2 первая из них увеличивает число на экране в 3 раза, вторая увеличивает его на...

aleksandrborodp06tyy

22.04.2020 04:45

Втаблице запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г. расположите коды запросов слева направо в порядке убывания количества...

vredina34

23.11.2022 03:40

Заранее ! 1. что такое электронные словари? 2. какие дополнительные проблемы возникают при переводе текстов? 3. что отличает систему перевода текста от электронного словаря?...

Takashu69

20.02.2021 18:32

15 . кодовый замок имеет 10 двухпозиционных переключателей . сколько комбинаций нужно перебрать злоумышленнику (в худшем случае), чтобы открыть замок. , решите 8 класс...

rufinafin

18.08.2020 05:09

Жоба турлерин сайкестендир...

bgf62

23.07.2020 19:44

(66)5. Определите тип алгоритма для указанных команд.КомандаТип алгоритмарозовсказать Привет!ауруларБратуразсудлануваат да сезарларданEERGEGEBERGНА НЕЕЕНЕ СЕРЕВОД НАЗВАНЕЗАповторить...

Ответ:

4ev43yi3

05.07.2020 19:20

Var s:integer;
Begin
S:=1;
For k:=3 to 6 do
s:=k*3
Writeln (s);
End.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку