//PascalABC.Net 3.2
begin
var n:=readinteger('Число апельсинов: ')*150;
var m:=readinteger('Число яблок: ')*100;
if m=n then write('Что угодно') else
if m>n then write('Лучше взять яблоки') else write('Лучше взять апельсины');
end.
98 целых 1 одна 4 четвертая или 98 целых 25 двадцать пять 100 сотых
На Pascal:
program sum4;uses crt;var a:integer;
begin writeln('Введите 4-х значное число');readln(a); writeln('Сумма крайних цифр = ',(a mod 10)+(a div 1000)); writeln('Сумма средних цифр = ',((a div 100) mod 10)+(a div 10) mod 10);end.
Жила была единица измерения, и она очень помогала людям во всяких работах и сопутствовала им по жизни. За что бы они не взялись единица измерения им во всем помогала)))<span />
Ответ:
30
Объяснение:
первое число - 30 в десятичной системе счисления
второе - 36
третье - 33