Регистрация
Ivanprofi22
16.12.2022 02:04
Информатика
Есть ответ 👍

Дано натуральное число n, найти первую цифру числа n. в паскале. надо,

283
299
Посмотреть ответы 3

Ответы на вопрос:

fira2010f
fira2010f
4,5(50 оценок)

var n,pr: integer; beginwriteln('vvedite n'); readln(n); while n> 9 don: =n div 10; pr: =n; writeln(pr); end.

Liza200011111
Liza200011111
4,8(46 оценок)

var a,b: integer; begin readln (a); while a> 0 do begin b: =a mod 10; a: =a div 10; end; writeln ('первая цифра числа: ',b); end.

uhjvjvjkybz
uhjvjvjkybz
4,4(21 оценок)

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

 

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

 

 

Популярно: Информатика