uses crt;
var x:integer;
begin
writeln('Введи сколько времени сегодня играл Пудж'); readln(x);
if x>8 then writeln('Пудж здоров')
else writeln('Болен');
end.
<em>Это ветвящийся алгоритм,если больше 8 значит здоров,обратное значение- болен.</em>
Здесь можно использовать размещение:
= 5! / (5-2)! = 5*4 = 20
Ответ: 20 способами
Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
<span>
-Компьютер что мы о нем знаем.во первых компютер это машина которая помогает найти нам нужную информацию. Во вторых через компьютер мы общаемся с родственниками и друзьями . В третих компьютер можно назвать ученым изо того что именно он может ответить на любой вопрос . в четвёртых чкловек создал для компьютера игры которые можно скачивать . Компьютеры бывают разные мощные и скоростные . чем смогла тем помогла.
</span>