ПОМОГИТЕ, ПОЖАЛУЙСТА!! Дано натуральное число. Верно ли, что сумма его чисел больше k, а само число четное?
Answers & Comments
Mockut11
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+c<k then Write('Утверждение неверно!'); end. Только для двузначного т.к. не имею на компьютере паскаль
Answers & Comments
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+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль