Срочно, помогите, проошууу, номер 4.23 под (а)

+ 0 -

Wwwng75

18 июня 2013 г., 21:02:35 (10 лет назад)

var a,a1,a2: integer;
begin
write ('Введите двузначное число: '); read (a);
a1:=a div 10;
a2:=a mod 10;
if (a1>a2) then writeln ('Первая цифра ',a1, ' больше второй цифры ',a2);
if (a2>a1) then writeln ('Вторая цифра ',a2, ' больше первой цифры ',a1);
if (a1=a2) then writeln ('Цифры одинаковые.');
end.

+ 0 -

Mini225252595

18 июня 2013 г., 21:54:17 (10 лет назад)

это нужно программу составить? для qbasic?

+ 0 -

Chudo666satana

19 июня 2013 г., 0:34:44 (10 лет назад)

Добрый день!
Дополните задание, не видно куска.

+ 0 -

Habiba

19 июня 2013 г., 3:10:43 (10 лет назад)

все видно, нужно только номер 4.23

+ 0 -

МарсМен

19 июня 2013 г., 4:57:11 (10 лет назад)

А, точно. Сейчас сделаю

+ 0 -

Ali23rex

19 июня 2013 г., 5:46:39 (10 лет назад)

нужно для devC++