Помогите составить программу в Паскале

fleelol · 24.01.2012, 20:04

. У исполнителя Утроителъ две команды, которым присвоены номера:
1) вычти 1
2) УМНОЖЬ на 3
Первая из них уменьшает число на экране на 1, вторая увеличивает его в три раза.
Запишите порядок команд в программе получения из числа 3 числа 22, содержащей не более 5 команд.

Vladimir_S · 24.01.2012, 20:43

Цитата:

Сообщение от fleelol

. У исполнителя Утроителъ две команды, которым присвоены номера:
1) вычти 1
2) УМНОЖЬ на 3
Первая из них уменьшает число на экране на 1, вторая увеличивает его в три раза.
Запишите порядок команд в программе получения из числа 3 числа 22, содержащей не более 5 команд.

Так, что ли?

Код:

Var
 a,b:Byte;
Begin
 a:=3;
 b:=a*3;
 Writeln(a:2,' * 3 = ',b:2);
 a:=b;
 b:=a-1;
 Writeln(a:2,' - 1 = ',b:2);
 a:=b;
 b:=a*3;
 Writeln(a:2,' * 3 = ',b:2);
 a:=b;
 b:=a-1;
 Writeln(a:2,' - 1 = ',b:2);
 a:=b;
 b:=a-1;
 Writeln(a:2,' - 1 = ',b:2);
 Readln
End.

fleelol · 24.01.2012, 21:17

спасибо!!!

24.01.2012, 20:04	#1 (permalink)
fleelol Member Регистрация: 11.10.2011 Сообщений: 77 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 110	Помогите составить программу в Паскале . У исполнителя Утроителъ две команды, которым присвоены номера: 1) вычти 1 2) УМНОЖЬ на 3 Первая из них уменьшает число на экране на 1, вторая увеличивает его в три раза. Запишите порядок команд в программе получения из числа 3 числа 22, содержащей не более 5 команд.

24.01.2012, 20:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ваша тема очень схожа по содержанию с данными топиками Помогите составить программу Прошу составить программу на Паскале

24.01.2012, 21:17	#3 (permalink)
fleelol Member Регистрация: 11.10.2011 Сообщений: 77 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 110	спасибо!!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070