Ответ:
с: = sqrt(sqr(a) + sqr(b));
Объяснение:
Sqr. Это функция возведения числа в квадрат.
Sqrt. Данная функция подсчитывает корень числа, стоящего в скобках после слова Sqrt.
Program ch ;
Var x:integer ;
BEGIN
X:=1;
While xl=7 Do(можешь выбрать другое число)
BEGIN
Write (x, ' ') /в' ' это пробел /
X:=x+1
End ;
END.
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string;
begin
write('Введите строку : ');
readln(s);
write('Введите слово : ');
readln(a);
if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
else writeln('В строке такого слова нет');
end.
Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть
Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет
<span>Цифры стоят в алфавитном порядке: 8 (Восемь), 2 (Два) ...</span>