Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.

0 0

4 года назад

Написать программу для подсчета среднего арифметического трех веществееных чисел на основе этой задачи:

dejavue

Var a,b,c,sa: real;
begin
writeln ('Введите 3 числа:');
readln (a,b,c);
sa:=(a+b+c)/3;
writeln;
writeln ('Среднее арифметическое = ',sa)
end.

-----------------

Введите 3 числа:
28.48 53.11 674.1

Среднее арифметическое = 251.896666666667

0 0

4 года назад

Pascal ABC. Написать программу, которая находит сумму четных элементов массива произвольного размера (размер и элементы массива

Володомир

Var
a:array of integer;
i,b,c:integer;

BEGIN
write('Введите размер массива - ');
readln(b);
setlength(a,b);
writeln('Введите элементы массива - ');
for i:=0 to b-1 do begin
readln(a[i]);
if a[i] mod 2 = 0 then c:=c+a[i];
end;
writeln('Сумма четных элементов массива - ',c);
END.

0 0

4 года назад

Приведите 2-3 примера суждений, в которых речь идёт об объектах, изучаемые на уроке иформатики

XXYZZ [192]

Пуск
Программа
Магазин и т. д.

0 0

4 года назад