Составить алгоритм определяющий является ли введенное число четным? Если число четное, вывести соответствующее сообщение и аналогично, вывести сообщение, если вводимое число не является четным. (число четное, если оно делиться на два)​

Не, не получится накопить

Объяснение:

program kopilka;

uses crt;

var x, c, p, y:real; i, m:integer;

begin

clrscr;

write ('Введите начальную сумму вклада, рублей: ') ;

readln(x);

write ('Введите желаемую сумму накопления, рублей: ') ;

readln(c);

write ('Введите срок накопления, лет: ') ;

readln(y);

m:=round(y*12);

write ('Введите ежемесячно начисляемый процент (%) : ') ;

readln(p); p:=p/100;

for i:=1 to m do

x:=x+x*p;

if x<c then write('Вы накопили ',x:6:2,' рублей, это меньше запланнированной суммы в ',c:6:2,' рублей')

else write('Ваша цель по накоплению ',c:6:2,' рублей достигнута: вы накопили ',x:6:2,' рублей') ;

readln;

end.

использовать Рисователь

алг кот

нач

новый лист(160, 210, белый)

линия (35,10,20,20)

линия (10,100,20,20)

линия (10,100,20,140)

линия (50,200,20,140)

линия (50,200,90,200)

линия (80,180,90,200)

линия (80,180,100,180)

линия (110,200,100,180)

линия (110,200,150,200)

линия (130,180,150,200)

линия (130,180,150,150)

линия (130,115,150,150)

линия (130,115,150,80)

линия (35,10,50,25)

линия (50,25,40,140)

линия (50,25,40,140)

линия (40,140,55,150)

линия (55,150,120,150)

линия (120,150,120,120)

линия (120,120,90,120)

линия (90,120,50,100)

линия (50,100,80,90)

линия (80,90,110,30)

линия (110,30,110,10)

линия (110,10,150,80)

кон