Помогите написать программу на языке паскаль

1. вывести все числа от 1 до 10 с помощью while;

2. вывести все числа от 1 до 10 с помощью repeat

Question

Информатика

Милан

28 марта, 20:55

Помогите написать программу на языке паскаль

1. вывести все числа от 1 до 10 с помощью while;

2. вывести все числа от 1 до 10 с помощью repeat

+3

Ответы (1)

Знаете ответ на вопрос?

Анджела · Answer 1

Var

a, b:integer;

begin

a:=0;

b:=0;

//Вывод через while

while a10 do

begin

inc (a) ;

write (a,' ') ;

end;

writeln ('') ;

//Вывод через repeat

repeat

begin

inc (b) ;

write (b,' ') ;

end;

until b=10;

end.

Помогите написать программу на языке паскаль1. вывести все числа от 1 до 10 с помощью while;2. вывести все числа от 1 до 10 с помощью repeat

Помогите написать программу на языке паскаль

1. вывести все числа от 1 до 10 с помощью while;

2. вывести все числа от 1 до 10 с помощью repeat