Var s,s0:string;
begin
write('введите строку: ');
readln(s);
write('введите подстроку: ');
readln(s0);
if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.
Тест №1
введите строку: qwerty
введите подстроку: wer
Да
Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет
Var x, y: real;
begin
readln(x);
if (x > -1) then y := 3 * sqr(x) - 4 * x
else y := 1 / (2 - 3 * x);
writeln(y);
<span>end.
Проверил =)</span>
Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить
Кажется, что в первом варианте будет 525, во втором 1.
Использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
сместиться на вектор(2,0)
сместиться на вектор(0,1)
сместиться на вектор(1,1)
сместиться на вектор(1,-1)
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
поднять перо
сместиться на вектор(2,-1)
опустить перо
кц
<span>кон</span>