1.
program z2;
var a,g:real;
begin
readln(a);
g:=(a/22)*(56-22);
writeln(g:4:2);
end.
<span>
2.
program z3;
var n,a,b,c:integer;
sa,sb,sc:real;
begin
writeln('Ведите количество учеников:');
readln(n);
writeln('Введите сколько:5,4,3');
readln(a,b,c);
sa:=(a*100)/n;
sb:=(b*100)/n;
sc:=(c*100)/n; writeln('пятёрок:',sa:4:2,'%');
writeln('четвёрок:',sb:4:2,'%');
writeln('троек:',sc:4:2,'%');
<span>end. </span></span>
Не разговаривать с чужими людьми переходит дорогу по зебре не гулять после 10 вечера вроде все но сам(а) еще придумай
С помощью трех битов можно закодировать 7 значений
а это значит что в коробке может быть до 7 шаров
С
такое сокращение
здесь должы быть символы
<span>program chik;
var a,b:array[1..1000]of longint;
c:array[1..1000,1..1000]of longint;
n,m,i,j:longint;
begin
read(n,m);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to m do
begin
read(b[i]);
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
c[i,j]:=a[i]+b[j];
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span></span>