Решение должно корректно работать в pascalabc.net, версии не выше 2.2 определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр.

253

416

Посмотреть ответы 3

Ответы на вопрос:

elenka421

Информатика

4,5(79 оценок)

Var n: integer; s1, s2: integer; begin readln(n); s1 : = n mod 10 + n div 10 mod 10; while n> 99 do n: =n div 10; s2 : = n mod 10 + n div 10 mod 10; if s1 = s2 then writeln('равна') else writeln('не равна'); end.

Gagarin51

Информатика

4,5(55 оценок)

// pascalabc.net 3.1, сборка 1171 от 15.02.2016 var i,n,n1,e,s1,s2: integer; s: string; begin write('введите натуральное число: '); read(n); str(n,s); val(copy(s,1,2),n1,e); s1: =(n1 div 10)+(n1 mod 10); s2: =(n mod 10)+((n mod 100) div 10); if s1=s2 then writeln('суммы равны') else writeln('суммы не равны') end. тестовое решение: введите натуральное число: 250370 суммы равны

Катттття

Информатика

4,8(15 оценок)

Вот на pascal (console aplication) : var a: integer; begin writeln('vvedite nominal valuti'); readln(a); case (a mod 10) of 1: if (a=11) then writeln('y vas est ',a,' rublei') else begin writeln('y vas est ',a,' rubl'); end; 2,3,4: if (a=12) or (a=13) or (a=14) then writeln('y vas est ',a,' rublei') else begin writeln('y vas est ',a,' rublya'); end; 0,5,6,7,8,9: if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then writeln('y vas est ',a,' rublei') else begin writeln('y vas est ',a,' rublei'); end; end; readln; end.