Задано двухзначное число. Составить программу, определяющую, чему равна первая цифра числа

@EugeneBorada · Регистрация: 12.10.2014

Author24 — интернет-сервис помощи студентам

Задано двухзначное число. Составить программу, определяющую чему равна первая цифра числа.(В программе Delphi)

@ZfoxAK · 13.10.2014, 07:08

Delphi

Var i:integer;
begin
i:=89;
ShowMessage('Первая цифра в числе ' + IntToStr(i) +' = ' + IntToStr(i div 10) + #13 +
  'Вторая цифра в числе '+ IntToStr(i) + ' = ' + IntToStr(i mod 10));
end;

Добавлено через 11 минут
Или так

Delphi

var i:integer; s:string;
begin
i:=75;
s:=IntToStr(i);
ShowMessage('Первая цифра в числе ' + s +' = ' + s[1] + #13 +
  'Вторая цифра в числе '+ s + ' = ' + s[2]);
end;

@EugeneBorada 0 / 0 / 0 Регистрация: 12.10.2014 Сообщений: 4
		1
	Задано двухзначное число. Составить программу, определяющую, чему равна первая цифра числа 12.10.2014, 16:06. Показов 2046. Ответов 1 Метки нет (Все метки) Задано двухзначное число. Составить программу, определяющую чему равна первая цифра числа.(В программе Delphi) 0

	13.10.2014, 07:08

Задано двухзначное число. Составить программу, определяющую, чему равна первая цифра числа

Решение