Дано ціле трьохзначне число, яке складається з неоднакових цифр. визначте, яка з його цифр більша: перша чи друга. як правильно написати програму на паскалі?
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); a:=a.ConvertAll(x->x.IsOdd?x+10:x-10); a.Println(5) end.
var a, d, count, i: integer; function CountDay(a: integer): integer; begin if (a >= 1) then countday := 31; if (a >= 2) then countday := 28; if (a >= 3) then countday := 31; if (a >= 4) then countday := 30; if (a >= 5) then countday := 31; if (a >= 6) then countday := 30; if (a >= 7) then countday := 31; if (a >= 8) then countday := 31; if (a >= 9) then countday := 30; if (a >= 10) then countday := 31; if (a >= 11) then countday := 30; if (a >= 12) then countday := 31; end; begin count := 0; write('Введите месяц: '); readln(a); write('Введите день: '); readln(d); if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then writeln('Ошшибка в данных!') else begin for i:=a to 12 do count := count + countday(i); count := count - d; writeln('До нового года осталось ', count, ' дней.'); end; end.
begin
read (d);
a:=d div 100;
b:=d div 10 mod 10;
if a>b then Write ('перша більша') else Write ('друга більша')
end.