#13 Вот крч только это убого насамом деле,просто я забыо как через цикл делать но если ты вспомнишь,то красавчик,и да там определяет только большие А и только английские ) program q; var a:string; t,b:integer; begin
readln(a);
b:=0;
if a[1]= 'A' then t:=b+1 else t:=0; if a[2]= 'A' then t:=t+1 else t:=t; if a[3]= 'A' then t:=t+1 else t:=t; if a[4]= 'A' then t:=t+1 else t:=t; if a[5]= 'A' then t:=t+1 else t:=t; if a[6]= 'A' then t:=t+1 else t:=t; if a[7]= 'A' then t:=t+1 else t:=t; if a[8]= 'A' then t:=t+1 else t:=t; if a[9]= 'A' then t:=t+1 else t:=t; if a[10]= 'A' then t:=t+1 else t:=t; if a[11]= 'A' then t:=t+1 else t:=t; if a[12]= 'A' then t:=t+1 else t:=t; write(t); end.
Var a,b,c:integer; begin writeln('Введите возраст Светланы: '); readln(a); writeln('Введите возраст Карины: '); readln(b); writeln('Введите возраст Марины: '); readln(c); if ((a>b) and (a>c)) then writeln('Светлана: ', a) else if ((b>c) and (b>a)) then writeln('Карина: ', b) else if ((c>a) and (c>b)) then writeln('Марина: ', c); if ((a>c) and (c>b)) then writeln('Марина: ', c) else if((c>b) and (b>a)) then writeln('Карина: ', b) else if ((b>a) and (a>c)) then writeln('Светлана: ', a); if ((a<b) and (a<c)) then writeln('Светлана: ', a) else if ((b<a) and (b<c)) then writeln('Карина: ', b) else if ((c<a) and (c<b)) then writeln('Марина: ', c); end.
Мы получили условие, что выражение будет истинныи, если X>4 или x=3
Если ошибки в вариантах нет, то удовлетворяют 3), 4), 5)