Ввести с клавиатуры трехзначное число и найти произведение первой и второй цифры. А также определить четность третей цефры

@Student_Skgu · Регистрация: 29.09.2013

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

Ввести с клавиатуры трехзначное число и найти произведение первой и второй цифры. А также определить четность третей цефры.

@Cyborg Drone · 30.09.2013, 00:15

Pascal

program Digi;
 
var i: integer;
 
begin
  repeat
    write('i = ');
    readln(i)
  until (i >= 100) and (i <= 999);
  writeln('Product of digits #1 and #2 is ', (i mod 10) * ((i mod 100) div 10));
  if odd(i div 100)
    then writeln('Digit #3 is odd')
    else writeln('Digit #3 is even');
  readln
end.

@Student_Skgu 1 / 1 / 0 Регистрация: 29.09.2013 Сообщений: 72
		1
	Ввести с клавиатуры трехзначное число и найти произведение первой и второй цифры. А также определить четность третей цефры 29.09.2013, 23:29. Показов 2898. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры трехзначное число и найти произведение первой и второй цифры. А также определить четность третей цефры. 0

Опции темы

Ввести с клавиатуры трехзначное число и найти произведение первой и второй цифры. А также определить четность третей цефры

Решение