Var s:string; p1,p2:integer;
begin
writeln('Введите слово:');
readln(s);
p1:=pos('жы',s);
p2:=pos('шы',s);
if (p1=0)and(p2=0) then writeln('Ошибок не замечено.');
if p1>0 then
begin
delete(s,p1,2);
insert('жи',s,p1);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
if p2>0 then
begin
delete(s,p2,2);
insert('ши',s,p2);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
end.
var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
Вот на примере этого можно много чего составить, не знаю скрлько тебе задач сделать надо но вот:
C++
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
if( c >= a && c <= b ) cout << "попадает.";
else cout << "не попадает.";
return 0;
}