решите...
написать алгоритм​


решите...написать алгоритм​

elyushik elyushik    1   09.03.2021 21:13    0

Ответы
AgamanDi AgamanDi  08.04.2021 21:14

var F,R,N:integer;

begin

write('Введите число R ');

read(R);

write('Введите число N ');

readln(N);

if R < N then

F:= F * R;

R:= R + 1;

writeln('F = ',F);

write('R = ',R);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика