Урок 11 Задание 13
Primary tabs
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке
program Hello; var i,a,c1,c2,c3,c4,c5: integer; begin i:=0; begin writeln ('vvedite chislo'); readln(a); while (i<5) do begin i:=i+1; begin if i=1 then begin c1:=(a mod 10); a:=(a div 10); end else if i=2 then begin c2:=(a mod 10); a:= a div 10; end else if i=3 then begin c3:=(a mod 10); a:= a div 10; end else if i=4 then begin c4:=(a mod 10); a:= a div 10; end else if i=5 then begin c5:=(a mod 10); a:= a div 10; end; end; end; end; writeln(c1,c2,c3,c4,c5); end.
- Log in to post comments
- 335 reads
vedro-compota
Sun, 01/29/2023 - 13:35
Permalink
1) есть лишние begin end
1) есть лишние begin end
2) решение не должно зависеть от разрядности числа
_____________
матфак вгу и остальная классика =)