Program N3;var b,a:integer;begin b:=0; write('Введите число - ');readln(a); repeat a:=a*3; b:=b+1; until a>100; writeln('Нужно умножить ', b, ' раз');end.
1)вращающийся вал,цилиндр-рол 2)афинянин по нации- грек 3) вагонный гараж-депо
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text