Написать программы для решения следующих задач:
1) В углу прямоугольного двора размером 50х30 стоит прямоугольный дом
размером 20х10. Подсчитать площадь дома, свободную площадь двора и длину
забора. Примечание: в углу, где дом, забора нет.
2) Вычислить значение переменной а=(х2+5х-√х)/3. Переменную х ввести из
клавиатуры.

Ответы

Ответ дал: Гость

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of 1 : write ( 'на дереве сидела ' ,n , ' ворона' ); 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' ); 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' ); end else write ( 'ветка обломилась! ' ); end; readln; end.

Ответ дал: Гость

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

Ответ дал: Гость

самым первым электронным программируемым компьютером был 1500 ламповый "коллос", который был создан 1943 году, профессором максом ньюменом в великобритании. он предназначался для расшифровки кодов шифровальной машины "энигма". те работы на которые у механических дешифраторов уходили дни, "колосс" выполнял за несколько часов. информация о нем была под грифом совершенно секретно практически до конца 20 века.

Ответ дал: Гость

var a: integer;

begin

read(a);

if a mod 3 = 0 then writeln('делится')

else writeln('не делится');

readln;

end.