Var f:array [1..19] of real;
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']=');
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k);
readln;
end.
1)0000..1111
2)1-01000000
2-1111000[-]
3-1100000[-]
4-00111001
дальше сами - пошёл спать)))
var a,b,c:real;
begin
read(a,b,c);
if (a>=b)and(a>=c) then writeln(a) else
if (b>=a)and(b>=c) then writeln(b) else
writeln(c)
end.
Алг<span> БИТ1</span>
вещ<span> А, В, С, D</span>
нач<span> ввод А, B, С</span>
если<span> А>В</span>
то<span> D:=A</span>
иначе<span> D:=B</span>
кв
если<span> C>D</span>
то<span> D:=C</span>
кв
<span> вывод D </span>
<span>кон</span>
<span>Ну такое выдал онлайн калькулятор:
111001.01111101011</span>