Program question;
var
a: string;
b: integer;
begin
writeln('Сколько тебе лет?:');
readln(b);
if b > 17 then begin
writeln('В каком институте ты учишься?:');
readln(a);
writeln(a, ' хороший институт');
writeln('До следующей встречи!');
end
else
if b <= 17 then begin
writeln('В какой школе ты учишься?');
readln(a);
writeln(a, ' не плохая школа');
writeln('До следующей встречи!');
end;
end.
Нужно скачать и установить SeaMonkey И все получится.
var
a,b,c:integer;
begin
readln(a); readln(b); readln(c);
if a mod 2 <> 0 then
Writeln('Первое нечетное')
else if a mod 2 = 0 then
Writeln('Первое четное');
if b mod 2 <> 0 then
Writeln('Второе нечетное')
else if b mod 2 = 0 then
Writeln('Второе четное');
if c mod 2 <> 0 then
Writeln('Третие нечетное')
else if c mod 2 = 0 then
Writeln('Третие четное');
end.
Var
s,ss:string;
i,j,n,k:integer;
begin
Write('Введите текст: '); Readln(s);
s:=' '+s+' ';
Write('Введите искомое слово: '); Readln(ss);
ss:=' '+ss+' ';
n:=Length(ss);
i:=Pos(ss,s); k:=0;
if i>0 then
repeat
Inc(k);
Delete(s,i,n);
i:=Pos(ss,s);
until i=0;
Writeln('Слово встречается ',k,' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите текст: по дороге, по тропинке, по леску пойдем
Введите искомое слово: по
Слово встречается 3 раз(а)