Предмет: Алгебра, автор: cernecovartem233

Пожалуйста сделайте быстро и хорошо. Пожалуйста СРОЧНООО!!!!​

Приложения:

Ответы

Автор ответа: milenaamentyka02
1

Ответ:

Ответ на фото. Должно быть правельно:)

Приложения:
akisa7688: милен, это ты?
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Математика, автор: Sanek06092004
Реши уровнение:

10y+2*(7y-2)=5*(4y+3)+3y
1 год назад
Предмет: Русский язык, автор: Rep000
Напишите мини сочинение 10 предложений.На тему "Какой способ преодоления страха используете вы"?
1 год назад
Предмет: Физика, автор: jimmifap
Электромагнитные волны какой длины излучает колебательный контур емкостью 33,1 пФ и индуктивностью 15мкГн?
1 год назад
Предмет: Информатика, автор: Джокер13
Суть программы заключается в транслитерации на другие символы. Человек выбирает что ему сделать перевести "privet" в символы или наоборот. Как сделать эту прогу через else. Выбивает ошибки. Т.е. должно сначала выходить 1) "что вы хотите сделать: перевести мое сообщение (нажмите 1) или перевести сообщение от меня(т.е. в обычный алфавит). 2)пользователь выбирает или 1 или 2(если 1 то транслитерация из букв в символы иначе из символов в буквы) 3)Пользователь вводит буквы или цифры и ему выдает переведенный результат. Как сделать программу через else? Она работает и так, но для того, чтобы выбрать первый вариант приходится вводить цифру 1 много раз. С цифрой 2 все в порядке. Помогите пожалуйста, отдаем практически все балы.

Var a1,a4, a5, a6, i :integer; 
Var a3, a2, b1, b2, b3 : string; 

begin 
Write ('Hello! What do you want from me? It is that what I can: 1)translate message encrypted by me(enter 1) or encrypt message inputted by me(enter 2)'); 
readln (a2); 
if a2 = '2' 
then 
writeln('enter your message'); 
readln(a3); 
for i := 1 to length(a3) do 
begin 
if a3[i]='a' then a3[i]:= '*'; 
if a3[i]='b' then a3[i]:= '+'; 
if a3[i]='c' then a3[i]:= '-'; 
if a3[i]='d' then a3[i]:= '='; 
if a3[i]='e' then a3[i]:= '!'; 
if a3[i]='f' then a3[i]:= '@'; 
if a3[i]='g' then a3[i]:= '#'; 
if a3[i]='h' then a3[i]:= '%'; 
if a3[i]='i' then a3[i]:= '&'; 
if a3[i]='g' then a3[i]:= ')'; 
if a3[i]='k' then a3[i]:= '('; 
if a3[i]='l' then a3[i]:= '`'; 
if a3[i]='m' then a3[i]:= '~'; 
if a3[i]='n' then a3[i]:= '^'; 
if a3[i]='o' then a3[i]:= ''; 
if a3[i]='p' then a3[i]:= '/'; 
if a3[i]='q' then a3[i]:= '}'; 
if a3[i]='r' then a3[i]:= '{'; 
if a3[i]='s' then a3[i]:= ']'; 
if a3[i]='t' then a3[i]:= '['; 
if a3[i]='u' then a3[i]:= ':'; 
if a3[i]='v' then a3[i]:= ';'; 
if a3[i]='w' then a3[i]:= '>'; 
if a3[i]='y' then a3[i]:= '<'; 
if a3[i]='z' then a3[i]:= '?'; 
if a3[i]=' ' then a3[i]:= ' '; 
if a3[i]='x' then a3[i]:= ','; 
if a3[i]='.' then a3[i]:= '.'; 
write(a3[i]); 
end; 
if a2 = '1' 
then 
writeln('enter my message'); 
readln(a3); 
for i := 1 to length(a3) do 
begin 
if a3[i]='*' then a3[i]:= 'a'; 
if a3[i]='+' then a3[i]:= 'b'; 
if a3[i]='-' then a3[i]:= 'c'; 
if a3[i]='=' then a3[i]:= 'd'; 
if a3[i]='!' then a3[i]:= 'e'; 
if a3[i]='@' then a3[i]:= 'f'; 
if a3[i]='#' then a3[i]:= 'g'; 
if a3[i]='%' then a3[i]:= 'h'; 
if a3[i]='&' then a3[i]:= 'i'; 
if a3[i]=')' then a3[i]:= 'j'; 
if a3[i]='(' then a3[i]:= 'k'; 
if a3[i]='`' then a3[i]:= 'l'; 
if a3[i]='~' then a3[i]:= 'm'; 
if a3[i]='^' then a3[i]:= 'n'; 
if a3[i]='' then a3[i]:= 'j'; 
if a3[i]='/' then a3[i]:= 'p'; 
if a3[i]='}' then a3[i]:= 'q'; 
if a3[i]='{' then a3[i]:= 'r'; 
if a3[i]=']' then a3[i]:= 's'; 
if a3[i]='[' then a3[i]:= 't'; 
if a3[i]=':' then a3[i]:= 'u'; 
if a3[i]=';' then a3[i]:= 'v'; 
if a3[i]='>' then a3[i]:= 'w'; 
if a3[i]='<' then a3[i]:= 'y'; 
if a3[i]='?' then a3[i]:= 'z'; 
if a3[i]=' ' then a3[i]:= ' '; 
if a3[i]=',' then a3[i]:= 'x'; 
if a3[i]='.' then a3[i]:= '.'; 
write(a3[i]); 
end; 
end.
8 лет назад
Предмет: Математика, автор: aleksaziza07
Помогите пожалуйста решить задачу!!!

Длина дома 13 м а ширина составляет 2/3 длины. Чему равен периметр дома?
8 лет назад