Будет ли число десятков больше, чем число едениц в 2 раза

@АНЮТАMILLER · Регистрация: 18.11.2013

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

1. В двузначном числе определить : будет ли число десятков больше, чем число едениц в 2 раза

2. В трехзначном числе определить : будет ли цифра сотен больше, чем число едениц в 3 раза

@mellowass · 16.12.2013, 16:42

1

Pascal

var a,b,c,i:integer;
begin
 Write('Введите двухзначное число: ');
 Read(i);
 b:=i div 10 mod 10;
 c:=i mod 10;
 if b =2*c then writeln('Число десятков больше, чем число единиц в 2 раза');
 Readln;
end.

2

Pascal

var a,b,c,i:integer;
begin
 Write('Введите трехзначное число: ');
 Read(i);
 a:=i div 100;
 c:=i mod 10;
 if a =c*3 then writeln('Число сотен больше, чем число единиц в 3 раза');
 Readln;
end.

@АНЮТАMILLER 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 6
		1
	Будет ли число десятков больше, чем число едениц в 2 раза 16.12.2013, 15:59. Показов 1939. Ответов 1 Метки нет (Все метки) 1. В двузначном числе определить : будет ли число десятков больше, чем число едениц в 2 раза 2. В трехзначном числе определить : будет ли цифра сотен больше, чем число едениц в 3 раза 0

	16.12.2013, 16:42

Будет ли число десятков больше, чем число едениц в 2 раза

Решение