Решить на языке паскаль!!!!! Дано пятизначное число 1)зачеркнуть последнюю цифру 2)зачеркнуть первые 2 цифры 3)зачеркнуть предпоследнюю цифру 4)зачеркнуть три последние цифры ЧИСЛО 53714 пОМОГИТЕ ПЛИЗЗЗ
Answers & Comments
dashadomracheva
1) program z1;uses crt;var a: integer;beginclrscr;repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);a:=a div 10;Writeln (a);Readkey;End.2) program z2;uses crt;var a: integer;beginclrscr;repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);a:=a mod 1000;Writeln (a);Readkey;End.3) program z3;uses crt;var a, b: integer;beginclrscr;repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);b:=a mod 10;a:=a div 100;Writeln (a, b);Readkey;End.4) program z4;uses crt;var a: integer;beginclrscr;repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);a:=a div 1000;Writeln (a);Readkey;End.
Answers & Comments