Дано двузначное число. Определить, больше ли цифра десятков цифры единиц

@dania · Регистрация: 12.04.2012

Добрый день,дали задание не могу справиться,нужна ваша помощь.
Нужно на языке Паскаь решить следующие задачи:
1)дано двузначное число,написать программу для определения больше ли цифра десятков цифры единиц
2) найти сумму всех двузначных чисел, которые кратны 6
Заранее спасибо!

@klast · 22.05.2012, 13:48

Сообщение от dania

1)дано двузначное число,написать программу для определения больше ли цифра десятков цифры единиц

Pascal

var
  n, sum: integer;
 
begin
  read(n);
  if n mod 10 > n div 10 then writeln('Первый разряд больше') else
  if n mod 10 < n div 10 then writeln('Второй разряд больше') else
    writeln('Первый и второй разряды равны');
end.

Добавлено через 1 минуту

Сообщение от dania

2) найти сумму всех двузначных чисел, которые кратны 6

Pascal

var
  i, n, sum: integer;
 
begin
  for i := 10 to 99 do
    if i mod 6 = 0 then inc(sum, i);
  writeln(sum);
end.

Добавлено через 26 секунд

Сообщение от klast

inc(sum, i);

это тоже самое что и sum:=sum+i;

@dania 0 / 0 / 0 Регистрация: 12.04.2012 Сообщений: 4
		1
	Дано двузначное число. Определить, больше ли цифра десятков цифры единиц 22.05.2012, 13:20. Показов 9458. Ответов 1 Метки нет (Все метки) Добрый день,дали задание не могу справиться,нужна ваша помощь. Нужно на языке Паскаь решить следующие задачи: 1)дано двузначное число,написать программу для определения больше ли цифра десятков цифры единиц 2) найти сумму всех двузначных чисел, которые кратны 6 Заранее спасибо! 0

Опции темы

Дано двузначное число. Определить, больше ли цифра десятков цифры единиц

Решение