^_^-а;★-я;3-л;4-б;5-ю;6-и;7-т;8-н;9-ф;10-о;(*0*)-р;12-м;13-м;+.+-у;***-к
★ 35435 68910(*0*)13^_^7***+.+
(я люблю информатику)
S:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then s[i]:='*'
else s[i]:='-';
writeln(s);
readln;
end.
ИСПОЛНИТЕЛЬ, ЭТО ТОЧНО, У НАС ТАКОЙ ЖЕ КРОССВОРД БЫЛ.
===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('x, y, z =');
var e := (Cos(x) - Sin(y)) ** 3 / Sqrt(Tan(x)) + Sqr(Ln(x * y * z));
Println(e)
end.
Юзай калькулятор)))) очень помогает, и программа в плей маркете есть , называется примерно myscriptcalculator как то так