Задать вопрос
18 декабря, 23:04

Паскаль

помогите

Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Сколько голов и глаз у дракона, которому N лет?

+1
Ответы (1)
  1. 19 декабря, 00:57
    -1
    Program dragon;

    var

    n, h: integer;

    begin

    h : = 0;

    write ('n = ') ;

    readln (n) ;

    if n > 100 then

    begin

    h : = (n - 100) * 2;

    h : = h + 300;

    end

    else

    h : = n * 3;

    writeln ('голов: ', h) ;

    writeln ('глаз: ', h * 2) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Паскаль помогите Дракон каждый год отращивает по три головы, но после того, как ему исполнится 100 лет - только по две. Сколько голов и ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Написать код для паскаля! Дракон каждый год, начиная с 10 лет отращивает по 2 новых головы. Когда ему исполняется 70 лет, он отращивает только 1 новую голову. С клавиатуры выводим возраст (n) дракона, программа выводит на экран кол-во его голов.
Ответы (1)
Повадился к одному царю Дракон за данью. Как ни прилетит, требует отдать ему несколько драгоценных камней, причем отдать быстро. Сколько камней попросит Дракон в очередной раз - неизвестно, известно только, что больше 127 за раз он не унесет.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Дракон имеет 3 головы: Сапфир с номером 1, Рубин с номером 2 и Изумруд с номером 3. Головы Дракона извергают пламя некоторой длины. Определить, какая из его голов извергает пламя наибольшей длины. Длина пламени определена в виде трёхзначного числа.
Ответы (1)
3) Определите, сколько раз исполнится цикл:for i:=0 to 8 do write (i) ; A) Цикл будет бесконечным B) Вообще не исполнится C) 8 раз D) 9 раз 4) Определите, сколько раз исполнится цикл:for i:=-10 downto 0 do write (i) ;
Ответы (1)