Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные ме...

July 2022 1 10 Report

Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.

Answers & Comments

Эклео Var
a,b,k: integer;
i: byte;
begin
write ('Введите число A: ');
readln (a);
write ('Введите число B: ');
readln (b);
k:=0;
for i:=a to b do begin
write (a:4);
k:=k+1;
a:=a+1;
end;
writeln;
writeln ('Количество чисел = ',k);
end.

---------------------------------------
Введите число A: 5
Введите число B: 10
5 6 7 8 9 10
Количество чисел = 6

6 votes Thanks 5

jensenSaifer спасибо)))

Answers & Comments

pomogite pozhalujsta 3 reshit04e94aaccd9a084c9df9ec97b1f72086 32290

pomogite reshit 1922

pomogite reshit 2016

pomogite pozhalujstadokazhite chto esli centr okruzhnosti opisannoj okolo treu

dayu 50 ballov pomogite reshit 246

pomogite reshit 6440 pozhalujsta

pomogite pozhalujsta reshit razlozhite na mnozhiteli 3m2m 86mm 82

pomogite reshit 146147148 zaranee spasibo

pomogite reshit 1917

dayu 35 ballovb6f2dcb165cdc02c1c5a5b0d5bef512a 18761

рекомендуемые вопросы

Helpful Links

Helpful Social