Var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end.
Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.
<span>это значит что пользователю будут показывать картинку, и качество картинки зависит от пожеланий пользователя и возможностей оборудования, т.е. если у вас 14' ega то при всем вашем желании он 1960*1280 показывать не будет, а вот между 640*480 и 800*600 можно будет выбрать.</span>
Var
n,k:Integer;
Begin
Read(n,k);
n:=n*12;
k:=n*38;
Writeln(n+k);
end.
Всем что осизается имеет запах ,форму,звуки?и.т.д