Var m:array[1..10] of integer;
a,i,k:integer;
begin
k:=0;
for i:=1 to 10 do
read(m[i]);
readln(a);
for i:=1 to 10 do
if m[i]=a then k+=1;
writeln(k);
<span>end.</span>
(a, b, c) означает, что в 12-литровой a литров, в 7-литровой b, а в 5-литровой c.
0) (12, 0, 0)
1) (7, 0, 5)
2) (7, 5, 0)
3) (2, 5, 5)
4) (2, 7, 3)
5) (9, 0, 3)
6) (9, 3, 0)
7) (4, 3, 5)
8) (4, 7, 1)
9) (11, 0, 1)
10) (11, 1, 0)
11) (6, 1, 5)
12) (6, 6, 0)
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче
1) игра котиков
2) ученик делает уроки
3) футбол (играют две команды)