вывести на экран чила от 1 до N, которые делятся на 4

[Сергей505]

вывести на экран чила от 1 до N, которые делятся на 4

[crazy horse]

1,4,8,...4*N. Вывел.

[Сергей505]

реши, мне очень надо, если не сложно,

и еще, одна задача, вывести на экран все простые числа, не привышающие данного

[Mad_Cat]

for i:=1 to n do 
If i mod 4=0 then write(i:6);

[Сергей505]

а можешь всю задачу целеком написать?

[Mad_Cat]

нет! Я не умею целиком писать Тааакие сложные задачи!

[Сергей505]

а сможешь решить это, вывести на экран все простые числа не привышающие данного

[Zer0]

2 Сергей

Во-первых - вам месяц назад уже ответили по второй задаче:
http://programmersforum.ru/showthread.php?t=173065

Во-вторых:

for i:=1 to n do 
If i mod 4=0 then write(i:6);

это и есть весь код (кроме объявления одной переменной, ввода числа и begin-end'ов)
Если даже этого сделать не можете, может Вы не там учитесь?

В-третьих:

не привышающие
целеком

В-четвертых:

Кросспостить - некультурно (да и правилами запрещено)
http://programmersforum.ru/showthread.php?t=178210

[kiker777]

var i,n:integer;
begin
Write('Введите число N:');
Read(n);
For i:= 1 to n do begin
if i mod 4=0 then
Writeln(i);
end;end.

[Felian]

// проверяет число на простоту
function IsPrime(num: Integer): Boolean;
var
  i: Integer;
begin
  i := 2;
  Result := True;
  while i <= (num div 2 + 1) do
  begin
    if (num mod i) = 0 then
    begin
      Result := False;
      Break;
    end;
    i := i + 1;
  end;
end;

procedure WritePrimes(max_n: Integer);
begin
  
// тут придумай циклом вывод, используй Write()

end;

Ты хоть попробовал сам сделать эту задачу перед постом на форум??