Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ): 12345 1234 12...

July 2022 1 9 Report

Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ):
12345
1234
123
12
1

54321
4321
321
21
1

54321
5432
543
54
5

Answers & Comments

антагонист

Verified answer

Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.

program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.

program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.

stefi24 Спасибо огромное!!!

антагонист я правильно понял? три разных цикла это while , until , for ?

stefi24 а ты это имел в виду? только for

антагонист чёрт

stefi24 vjz jib,rf

антагонист это плохо

stefi24 моя ошибка*

антагонист подождёшь?

stefi24 Конечно, если тебе не трудно)

stefi24 Спасибо огромнейшее!!!!!!

Answers & Comments

Verified answer

skolko pryamougolnikov ne yavlyayushihsya kvadratami izobrazheno na risunke

predstavte sebe chto nekij kitajskij vrach naveshaet bolnogo tot morshitsya ne zhb0872756128d6e3b81da5d75c9795d37 33488

4 vida bolezni vyzyvaemye bakteriyamiih sposoby proniknoveniyav organizm cheloveka

chto vy znaete o narodnom sobranii v drevnih afinah 1kto imel pravo v nem uchast

kogo nazyvayut lyudmi tvorcheskih professij prividite primery lyudej takih profess

mozhno li podobrat takie naturalnye chisla a i b chtoby vypolnyalos ravenstvo 1

sostavte i zapishite predlozheniya po shemam vklyuchite sleduyushie slova mamamamochk

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

Helpful Links

Helpful Social