Const
ru : array[1..33] of Char = ('а','б','в','г','д','е','ё','ж','з','и',
'й','к','л','м','н','о','п','р','с','т',
'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',
'э','ю','я');
en : array[0..33] of String = (' ','a','b','v','g','d','e','ye','zh','z','i',
'y','c','l','m','n','o','p','r','s','t',
'u','f','h','c','ch','sh','sch','`','ы','',
'ea','yu','ja');
{ транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }
Function GetIndex(ss : Char) : Byte;
Var ii : Byte;
Begin
ii:=1;
While (ii<=33) and (LowerCase(ss)<>ru[ii]) do Inc(ii);
If ii in [1..33] then GetIndex:=ii else GetIndex:=0;
end;
Function Trans(S : String) : String;
Begin
If Length(S)>0 then Trans:=en[GetIndex(S[1])]+Trans(Copy(S,2,Length(S)-1))
else Trans:='';
end;
Begin
Writeln(Trans('паскаль'));
Writeln(Trans('ява'));
end.
Известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). Какое из расстояний меньше?
Program ss;
uses crt;
var
a,b,c,s,s1: integer;
Begin
clrscr;
Writeln('Введите расстояние в километрах:');
readln(a);
Writeln('Введите расстояние в футах');
readln(b);
writeln('Введите размер одного фута в метрах');
s:=a*1000;
s1:=c*b;
Годятся числа меньше или равные FFh, 477 восьмеричн, 255 десятичн. и 11111111 двоичн
233 - 128 = 1; 105 - 64 = 1; 41 - 32 = 1; 9 - 16 = 0; 9 - 8 = 1; 1 - 4 = 0; 1 - 2 = 0; 1 - 1 = 1; 233₁₀ = 11101001₂
233:8=29 и 1, 29:8=3 и 5; 233₁₀= 351₈
233₁₀=233₁₀
233:16=14 и 9; 233₁₀=Е9₁₆
Конечно нет.
Например, схема телефона ничего не скажет о том, какая в нем записана информация. Карта местности ничего не скажет о том, какая там сейчас погода, схема проезда к кинотеатру ничего не скажет, о том, каково в данное время состояние дорог и т.п.