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

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

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

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

@zhan313 · 22.05.2012, 15:10

Pascal

var i,j :integer;
begin
  repeat
  writeln('vvedite chislo '); readln(i);
  until (i>=10) and (i<=99);
  if (i div 10) > (i mod 10) then writeln('bolshe')
    else if (i div 10) = (i mod 10) then writeln('ravny') else writeln('menshe');
  j:=0;
  for i :=10 to 99 do
    if i mod 6 =0 then j :=j+i;
  writeln('summa = ',j);
  readln;
end.

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

Опции темы

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

Решение