Напишите программу в pascal сергей страдает ожирением в процессе голодании он каждую неделю скидывает 3% от предыдущего веса изначально он весил 150 кг в машину он влезет когда будет весить 96 кг через сколько недель он влезет в машину?
//Первая var a,b,c:integer;beginread(a,b,c);if a>0 then a:=a*a else a:=a*a*a*a;if b>0 then b:=b*b else b:=b*b*b*b;if c>0 then c:=c*c else c:=c*c*c*c;write(a,' ',b,' ',c);end. //вторая var a,b,c:integer;beginread(a);if(a<100)or(a>999)then write('Заданное число не трехзначное!');if (a>99) and (a<1000)thenbeginb:=a*a;while a<>0 dobeginc:=c + a mod 10;a:=a div 10;end;c:=c*c*c;if c=a then write('Квадрат равен кубу суммы цифр')else write('Квадрат НЕ равен кубу суммы цифр')end;end. //Третья var a:integer;beginread(a);if a=1 then write('Январь');if a=2 then write('Февраль');if a=3 then write('Март');if a=4 then write('Апрель');if a=5 then write('Май');if a=6 then write('Июнь');if a=7 then write('Июль');if a=8 then write('Август');if a=9 then write('Сентябрь');if a=10 then write('Октябрь');if a=11 then write('Ноябрь');if a=12 then write('Декабрь');end.
VAR
MASSA:real;
NED:INTEGER;
BEGIN
MASSA:=150;
NED:=0;
WHILE (MASSA>=96) DO
BEGIN
MASSA:=MASSA-MASSA*0.03;
NED:=NED+1;
END;
WRITELN('Через ',NED,' недель Сергей влезет в машину')
END.