? "введите стоимость книг и сумму денег соответсвенно через запятую"
input a,b
if a=b then 1 else 2
1 ? "" : goto 10
2 if a> b then 3 else 4
3 a-b=c
? "не хватает денег,доплатите"; c : goto 10
4 b-a=r
? "ваша здача"; r
10 end
Ответ дал: Гость
Program is_ev_2d; var n: integer; begin write('введите число: '); readln(n); if (n mod 2 = 0) and (n > 9) and (n < 100) then writeln(n, ' чётное двузначное') else writeln(n, ' не чётное двузначное') end.
Популярные вопросы