var m,s,b,a:integer;
begin
writeln ('Введите степень:');
read (m);
b:=3;
s:=1;
for a:=1 to m do begin
s:=s*b;
end;
writeln('3 в степени ',m,': ',s);
end.
Может быть так:
1тепловоз отцепляет свои 2 вагона.Затем 1тепловоз заезжает с 1 вагоном в тупик. Оставшиеся вагоны 2 тепловоз толкает вперед, давая 1тепловозу выехать позади него. Потом 2 тепловоз сдает назад, завозит 2 вагона 1-го тепловоза в тупик и едет вперед. Когда 2 тепловоз проедет, 1тепловоз возвращается и забирает свои 2 вагона
var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.