Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
Var g, i, j, m, n: integer;
begin
m := 100;
read(g);
for j := 1 to 8 do begin
if(g >= n) and (g <= m) then i := j;
if (j = 1) then n := n + 1;
n := n + 100;
m := m + 100;
end;
write(i);
end.
Program ww;
Uses crt;
Var a,b,p:integer
Begin
Readln(a,b);
If a>b then p:=a*a*a;
else p:=b*b*b;
Writeln(p);
End.
а ты вообще знаешь как они различаются
Источник - ты. Кодирующее устройство - твой телефон. Канал связи - беспроводная телефонная линия. Декодирующее - телефон друга. Приемник - друг.