Const g=['й','ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б','Й','Ц','К','Н','Ш','Щ','З','Х','Ф','В','П','Р','Л','Д','Ж','Ч','С','М','Т','Б']; var str: string;i: byte; begin readln(str); for i:=1 to length(str) do begin if str[i] in g then writeln (str[i]); end; end.
{ С использованием цикла FOR } writeln('Используем цикл FOR');
write('Введите стоимость 1-го кг конфет: ');
readln(price); for i:=1 to max do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
end;
{ С использованием цикла REPEAT } i:=1;
writeln;
writeln('Используем цикл REPEAT');
repeat
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
until(i>max);
{ С использованием цикла WHILE } i:=1;
writeln;
writeln('Используем цикл WHILE');
while(i<=max) do begin
writeln (i, ' кг. конфет стоят: ', i*price:7:2);
i:=i+1;
end;
end;
Var a,b,c:real; begin writeln('введите значения трех углов:'); readln(a,b,c); if (a+b+c)<>180 then writeln('введены некорректные данные')else if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else if (a=b)and(b=c) then writeln('равносторонний')else if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else writeln('разносторонний') end.