<em>var <имя файловой переменной>: file of <тип данных>;</em>
{ Нужно написать программу, выводящую сумму всех двузначных чисел... Помогите, пожалуйста... }
var
S, i: <em>integer</em>;
begin
for i := 10 to 99 do
s += i;
writeln(s);
<span>end.</span>
Var s,k:integer;
begin
s:=0;
for k:=3 to 10 do
s:=s+13;
write(s);
<span>end.
Ответ 104</span>
program del;
uses crt;
var chisla: array[1..15] of integer;
n, i, k:integer;
begin
clrscr;
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите 'i'-тое число: ');
readln (chisla[i]);
end;
for i:=1 to n do
if ((chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0)) then
k:=k+1;
write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.');
readln;
end.
У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.