Вывести на печать целые числа кратные 3

df

И так вот собственно сама задача: Вывести на печать целые числа кратные 3, начиная с 51 до 182.Узнать сумму и количество таких чисел.Записать все числа и результат поиска в файл. Помогите пожалуйста!!!!!!!!!!help:
6 ответов

df

var i,n,s: integer;
     f: text;
n:=0;
s:=0;
assign(f, '1.txt');
reset(f);
for i:=51 to 182 do
if (i mod 3)=0 then
begin
  inc(n);
  s:=s+i;
  writeln(f, i);
end;
writeln(f,'s:',s)
end.
Как-то вот так друган!


df

тут ещё массив нужен и у меня assign(f,'1.txt'); подчёркивает


df

к syd2010 версия для Делфи: assignfile(f,'1.txt'); rewrite(f); {или append(f), лучше reset не использовать} Массив там не нужен, можно получить результаты не запоминая все рассмотренные числа.


df

на Delphi пишешь? тогда вот так пробуй вместо assign(f,'1.txt') пиши assignfile(f,'1.txt') вместо close(f) - closefile(f);че за массив?Mysterious Light чувак я знаю, просто думал он на паскале пишет


df

ну во первых это подфорум для делфи а во вторых мне надо именно вывести числа делящиеся на 3 а ещё у ми выдает ошибку button нажимаю и выделяет writeln(f,'s:',s)


df

label1.caption:= '';
for i:=51 to 182 do
if (i mod 3)=0 then
begin
  inc(n);
  s:=s+i;
  writeln(f, i);
  label1.caption:= label1.caption + IntToStr(i);
end;
writeln(f,'s:');
write(f,s)
зацени!