Составить программу на языке pascal! даны три числа, написать программу, подсчитывающую количество чисел, равных нулю.

var 

  num, count: integer;

begin

    count: =0;

    for i: =1 to 3 do

    begin

        readln(num);

        if num=0 then count: =count+1

    end;

    writeln(count)

end.

program zadacha;

uses crt;

var

a,b,c,kol: integer;

begin

writeln('a=,b=,c=');

read(a,b,c);

kol: =0;

if a=0 then kol: =kol+1;

if b=0 then kol: =kol+1;

if c=0 then kol: =kol+1;

writeln('kolichestvo chisel ravnih nulu =',kol);

end.

первый файл займет 2750/1054 =2,6 = 3 кластера(может быть только целое число кластеров).

второй файл займет 324000/1024 = 307,4 = 308 кластеров.

ответ: 3 + 308 кластеров

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1