Var s,s0:string;
begin
writeln('Введите строку s:');
readln(s);
writeln('Введите строку s0:');
readln(s0);
if pos(s,s0)>0 then writeln('ДА') else writeln('НЕТ');
end.
Пример:
Введите строку s:
две
Введите строку s0:
Даны две строки
ДА
1
var a,b:integer;
begin
readln(a,b);
if a>b then
write(a+b);
if b>a then
write(b-a);
if a=b then
write(ab);
end.
2
type mas=Array [1..15] of integer;
var i:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-10,10);
if A[i]<0 then
write(i,' ');
end;
end.
Program calculator;
Var a,c: real;
b: char;
Begin
Write('Введите первое число: ');
readln (a);
Write('Введите знак. ( + - сложение, - - вычитание, / - деление, * - умножение): ');
readln (b);
Write('Введите второе число: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*': a:=a*c;
'/': a:=a/c;
end;
Write ('Результат: ',a);
End.
Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>
Program qq;
Var a:array [1..5] of real;
I:integer;
Begin
Writeln('vvodi dannie');
For i:=1 to 5 do readln(a[i]);
Writeln;
For i:=1 to 5 do writeln(a[i]);
End.