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
Нет
Годятся числа меньше или равные FFh, 477 восьмеричн, 255 десятичн. и 11111111 двоичн
3) 1. Paint
2. Microsoft Word
4) 1. Толщина
2. Фигуры
5) 1. Фигуры
2. Заливка
3. Ластик
Ответ:
Объяснение:
Это кубы натуральных чисел.
а) if (a>100) and (b>100) then
write('ISTENO');
б) if (a mod 2 = 0) or (b mod 2 =0) then
write('ISTENO');
в) if (a > 0) or (b>0) then
write('ISTENO');
г) if (a mod 3 = 0) and (b mod 3 = 0) and (c mod 3 = 0) then
write('ISTENO');
д) if ((a<50) and (b>50) and (c>50)) or ((a>50) and (b<50) and (c>50)) or ((a>50) and (b>50) and (c<50)) then
write('ISTENO');
е) if (a<0) or (b<0) or (c<0) then
write('ISTENO');