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

P:=0; a:=2; for i:=1 to 5 do begin a:=3*a+1; p:=p+a; end;

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

↓

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

хопхэйлалалэй1

12.12.2022 19:19

Напиши программу. дано целое число n (n 0). найти сумму (n + 1)^2 + (n + 2)^2 + … + (2•n)^2 входные данные: ввести целое число n (1 =n =10). выходные данные: вывести сумму...

залупа22223332323233

01.11.2020 07:53

Напишите программу, которая анализирует человека по возрасту и относит к одной из четырёх групп: дошкольник, ученик, работник, пенсионер. pascal...

ксюша1707

27.12.2022 14:59

Вкакой системе счисления справедливо равенство 357+654=1233? с подробным решением,...

Khamidullovaals

27.12.2022 14:59

Люди я немонимаю как переводить байты в биты даже знаю что в байте 8бит решите с обьяснение кратким 2кб- байт 4мб-байт 1гб-байт или какие нибудь свои примеры...

gamegame2006

07.04.2022 17:25

Найдите три последние цифры производителя 1*2**18...

jandar200

07.07.2022 22:05

Могут возникнуть проблемы с 4-м уровнем. Подсказка: 4-й уровень - это куница, хорь, олень. Т.е. нужно будет вставить эти слова и 4-м уровне уже писать какие есть куницы, хори,...

y2334455

04.09.2021 23:32

Некоторое сообщение несет 1 бит информации. Во сколько раз уменьшилась неопределенность знания. (Напишите число)....

diekaaaaa

03.03.2022 05:48

1. Даны 7 чисел (вводятся с клавиатуры), найти произведение четных. Скажите как сделать правильно ?...

RILIR

02.01.2021 22:34

Основная функция сервера: Выберите один ответ: 1 кодирует информацию, предоставляемую клиентом 2 предоставлять доступ только тем клиент-компьютерам, которым это необходимо...

liliiayukhno1

13.05.2020 03:37

При регистрации в компьютерной системе каждому пользователю выдается пароль, состоящий из 15 символов и содержащий только символы к, о, м, п, ь, ю, т, е, р. каждый такой пароль...

Ответ:

elsoc

16.04.2021 14:20

Решение представлено во вложении.

Язык: Pascal

a = 607;p = 905.
P:=0; a:=2; for i:=1 to 5 do begin a:=3*a+1; p:=p+a; end;

P:=0; a:=2; for i:=1 to 5 do begin a:=3*a+1; p:=p+a; end;

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

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

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