Регистрация
KARAZINO
11.06.2020 05:23
Информатика
Есть ответ 👍

Написать программы в pascal abc.​

101
336
Посмотреть ответы 2

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

ВККeerboom
ВККeerboom
4,6(31 оценок)

var

i,n: byte;

s: integer;

begin

write('сколько слоев в пирамиде? ');

readln(n);

for i: =1 to n do

begin

s: =s+i*i;

writeln('в ',i,'-м слое ',i*i,' шаров');

end;

writeln('в пирамиде из ',n,' слоев ',s,' шаров');

readln;

end

как то так))

Dddgirl777
Dddgirl777
4,7(59 оценок)

1) ЗАМОК => ИБНПЛ, далее удаляем среднюю букву => ИБПЛ.

2) ИБПЛ => ЙВРМ, так как кол-во букв чётно, то в конец добавляем Г=> ИВРМГ

ответ: ИВРГМ

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