Var i:integer; n,m:longint; begin Write('Введите натуральное m: '); Read(m); n:=1; repeat n:=3*n; Inc(i) until n>m; Writeln('3^',i-1,' = ',n div 3,' не превышает ',m) end.
Тестовые решения: Введите натуральное m: 1 3^0 = 1 не превышает 1
Введите натуральное m: 3 3^1 = 3 не превышает 3
Введите натуральное m: 54652341 3^16 = 43046721 не превышает 54652341
Ну почему,когда просят написать программу никто никогда не указывает язык программирования.я напишу на языке паскаль с входным и выходным файлом,но если это не тот язык,твоя проблема.(сообщения в фигурных скобках,это комментарии,просто для пояснение,можешь удалить их)
program p1; const n=10; var a : array[1..n] of integer; i,b,c:integer; begin randomize; assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output);
for i:=1 to n do {Заполнение исходного массива} a[i]:=random(21)-10;
for i:=1 to n do {Вывод исходного массива(можно удалить эти строчки)} write(a[i]:4);
c:=0; {Инверсия массива} for i:=1 to 2 do begin b:=a[i]; a[i]:=a[5-c]; a[5-c]:=b; c:=c+1; end; c:=0; for i:=6 to 8 do begin b:=a[i]; a[i]:=a[10-c]; a[10-c]:=b; c:=c+1; end; writeln;
for i:=1 to n do {Вывод инверсированого массива} write(a[i]:4);
Окно программы Paint. Графический -редактор Paint одновременно может работать только с одним документом, поэтому окно документа является частью окна программы. Главное меню редактора Paint содержит следующие позиции: · Файл - такие же операции с файлами, как и в редакторе WordPad (задание нового файла, загрузка файла, запись файла с текущим и измененным именем, распечатка файла принтером), дополнены опциями: замостить рабочий стол Windows, в центр рабочего стола Windows. · Правка - редактирование файла, работа с буфером обмена, отмена предыдущих действий и повтор результатов отмененного действия. · Вид - управление выводом меню инструментов и цветов, панелью атрибутов текста, а также статусной строки, управление масштабом и обзором изображений. · Рисунок - операции с выделенными изображениями (поворот, инверсия, изменение атрибутов, очистка, изменение параметров рисунка). · Палитра - установка опций графического редактора (установка и запись палитры цветов). · Справка - обращение к справке по графическому редактору.
i:integer;
n,m:longint;
begin
Write('Введите натуральное m: '); Read(m);
n:=1;
repeat
n:=3*n; Inc(i)
until n>m;
Writeln('3^',i-1,' = ',n div 3,' не превышает ',m)
end.
Тестовые решения:
Введите натуральное m: 1
3^0 = 1 не превышает 1
Введите натуральное m: 3
3^1 = 3 не превышает 3
Введите натуральное m: 54652341
3^16 = 43046721 не превышает 54652341