Трудно представить строительство частного элитного дома без правильно выбранного архитектора. Общение с ним может начаться с разных во в числе которых будет и такой: "какой архитектурный стиль вам нравится?".
Если вы слышите его впервые или вообще никогда не интересовались архитектурой, вполне возможно, затруднитесь с ответом. Опытный профи, прежде чем задавать его, предложит посмотреть фотографии, альбомы и каталоги, а вы отбираете среди них то, что произвело на вас впечатление. И лишь затем архитектор сам назовет стиль, который более всего соответствует вашим вкусам.
Это и послужит основой для проектирования вашего будущего дома.
Объяснение:
program z1;
var o1,o2,o3:integer;
sr:real;
begin
repeat
write ('Введите 1 оценку ');
read (o1);
if (o1<2) or (o1>5) then writeln ('Ошибка')
until (o1>1) and (o1<6);
repeat
write ('Введите 2 оценку ');
read (o2);
if (o2<2) or (o2>5) then writeln ('Ошибка')
until (o2>1) and (o2<6);
repeat
write ('Введите 3 оценку ');
read (o3);
if (o3<2) or (o3>5) then writeln ('Ошибка')
until (o3>1) and (o3<6);
sr:=(o1+o2+o3)/3;
if sr<2.5 then writeln('Петя, ты двоечник по информатике')
else
if sr>4.5 then writeln('Петя, ты отличник по информатике')
else
if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')
else writeln('Петя, ты ударник по информатике')
end.
s: string;
i, c: integer;
begin
a := ['Б'..'Ф', 'Ё'];
writeln('Введите строку: ');
readln(s);
for i := 1 to Length(s) do
if s[i] in a then c := c + 1;
writeln('ответ. ', c);
end.