Блок-схема - в прилагаемом файле.
Программу Вам написали правильно:
var
i, p: integer;
begin
p := 1;
for i := 4 to 7 do p := p * i;
writeln('P = ', p);
end.
Результат:
P = 840
Ответ:
1875 Кбайт
Объяснение:
Объем видеопамяти = 2*16*800*600 бит = 4*800*600 байт = 1875 Кбайт
Ответ:
12
Объяснение:
при последней итерации которая удовлетворяет условию есть три единицы:
111222
первая замена даст
2222
вторая замена даст
12
до этого на листочке нарисуй замены, три раза примени цикл и увидишь что он повторяется и опять получается последовательно еденичек а за ними столько же двоек
Ответ:
Зайди в статус, нажми на 3 точки и "Приватность статуса", а там на "Мои контакты"