Дано трехзначное число определить количество сотен, десятков и единиц

11.09.2012, 20:57. **Показов** 64558. **Ответов** 1

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

Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

@Dima_rik · 11.09.2012, 21:19

Delphi

var a,b,c,i:integer;
begin
 Write('Vvedite 3-x znachnoe chislo: ');
 Read(i);
 a:=i div 100;
 b:=i div 10 mod 10;
 c:=i mod 10;
 Write('Kolichestvo soten: ',a,', Kolichestvo desjatkov: ',b,', Kolichestvo edinic: ',c);
 Readln;
end.

Миша26
		1
	Дано трехзначное число определить количество сотен, десятков и единиц 11.09.2012, 20:57. Показов 64558. Ответов 1 Метки нет (Все метки) Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

Опции темы