Сделать в pascal abc 1.программа предлагает пользователю ввести двузначное число. если пользователь ошибся, то выдать сообщение «вводите только двузначные числа». 2.каждому пушному зверьку в возрасте от 1 до 3 месяцев полагается 2 стакана молока в день, если его вес меньше 3 кг. остальным зверям по 1 стакану. известен возраст и вес зверька. выяснить сколько литров молока в месяц ему необходимо. один стакан молока составляет 0,2 литра.
program z1;
var a,b,c:integer;
begin
writeln('введите двузначное число');
readln(a);
if a div 100<>0 then
writeln('Вводите только двузначные числа.');
end.
2.
program z1;
var x,w,l:real;
begin
writeln('Введите возраст и вес зверька');
readln(x,w);
if (x<=3)and(x>=1)and(w<3) then
l:=2*0,2*30
else
l:=1*0,2*30;
writeln('Зверьку нужно ',l,' литров молока в месяц');
end.