var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.
*Растровый графический редактор* — специализированная программа, предназначенная для создания и обработки растровых изображений
. Подобные программные продукты нашли широкое применение в работе художников-иллюстраторов, при подготовке изображений к печати типографским способом или на фотобумаге, публикации в интернете.
Растровые графические редакторы позволяют пользователю рисовать иредактировать изображения
на экране компьютера, а также сохранять их в различных растровых форматах, таких как, например, JPEG
и TIFF
, позволяющих хранить растровую графику с незначительным снижением качества за счёт использования алгоритмов сжатия с потерями, PNG
и GIF
, поддерживающими хорошее сжатие без потерь, и BMP
, также поддерживающем сжатие (RLE
), но в общем случае представляющем собой несжатое «попиксельное
» описание изображения.
Program n_1;
var s, m: real; n:integer;
begin
read(s);
n:=0; m:=s;
while (m<=1.5*s) do begin
m:=m*1.03;
n:=n+1;
end;
writeln(n);
end.
Честно говоря, решение тут вообще не зависит от S. Всегда выводится одно и то же число - 14
<span>Вложенный оператор применяется в тех случаях, когда для выполнения действия требуется соблюдение сразу нескольких условий, которые не могут быть указаны в одном условном выражении</span>