Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

ПОМОГИТЕ, ПОЖАЛУЙСТА!! Дано натуральное число. Верно ли, что сумма его чисел больше k, а само число четное?

Ответ оставил Гость

Program fd;
var a,k:integer;
begin
Writeln(Ввести чётное натуральное число a);
Readln(a);
Writeln(Ввести число k);
Readln(k);
Writeln(,a div 100);
Readln(d);
Writeln(,a mod 100);
Readln(c);
if d+c>k then Write(Утверждение верно!); else
if d+cend.
Только для двузначного т.к. не имею на компьютере паскаль