var k:integer; begin writeln ('Сколько часов в день играет котёнок?'); readln(k); if k<8 then writeln ('Котёнок не здоров!'); if k>=8 then writeln ('Котёнок здоров.'); readln; end.
Var k:integer; begin writeln ('Количество часов, которое котенок играет'); readln(k); if k<8 then writeln ('Котёнок не здоров'); if k>=8 then writeln ('Котёнок здоров'); readln; end.
Решение на языке Pascal. var k:integer;beginwriteln ('Сколько часов в день играет котёнок?');readln(k);if k<8 then writeln ('Котёнок не здоров!');if k>=8 then writeln ('Котёнок здоров.');readln;end
var k:integer;
begin
writeln ('Сколько часов в день играет котёнок?');
readln(k);
if k<8 then writeln ('Котёнок не здоров!');
if k>=8 then writeln ('Котёнок здоров.');
readln;
end.
begin
writeln ('Количество часов, которое котенок играет');
readln(k);
if k<8 then
writeln ('Котёнок не здоров');
if k>=8 then
writeln ('Котёнок здоров');
readln;
end.
var k:integer;beginwriteln ('Сколько часов в день играет котёнок?');readln(k);if k<8 then writeln ('Котёнок не здоров!');if k>=8 then writeln ('Котёнок здоров.');readln;end