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

Question

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

Comments

Какое k&

---

k- это переменная которая вводится с клавиатуры

---

тебе срочно надо?

---

Да

---

Смогу написать только через 1 час, потерпиш?

---

Постараюсь)

---

ок тогда жди

---

Задача очень сложная, огу только для дузначного числа

---

двузначного*

Answer 1

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.
Только для двузначного т.к. не имею на компьютере паскаль

Comments

спасибо

---

А в цикле while можешь сделать?