Zaikinarusina
?>

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

Информатика

Ответы

mbrilliantova

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

Язык: 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;
Ваше имя (никнейм)*
Email*
Комментарий*

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

ukkavtodor6
d5806252
Stroeva19651938
Kolosove5465
ohussyev
Анна гутлина
aamer9992680
Николаевна
vikka30
marimelons795
suny84
AntonovaAvi1716
Rafigovich1267
saltikovaPavlenko
serge-lysoff