Написать программку которая бы выводила все четные числа от 1 до

Написать программку которая бы выводила все четные числа от 1 до 10/
помогите.((

Задать свой вопрос
2 ответа
Program z8; 
Var i,p:integer; 
Begin 
p:=10; 
i:=2; 
while ilt;=20 do 
begin 
i:=i+p; 
end; 
writeln(i,' '); 
end. 
вот и ответ
Алиса Гейшина
Writeln надобно перенести в тело цикла. Так программка выведет только число 20. А нужно вывести толь от 1 до 10 все четные (2,4,6,8,10)
Program test;
var
i : integer;
begin
for i:=1 to 10 do
begin
if (i mod 2 = 0) then
Writeln(i);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт