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

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

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

Question

Информатика

Добромила

23 июля, 00:23

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

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

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

+5

Ответы (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