Программирование. составить программы для решения : (калькулятор) 1.дана площадь квадрата.вычислить периметр этого квадрата 2.дано натуральное число х. определить,является ли оно четным и делится ли это число на 3
1. var a : integer; begin read (a); writeln (sqrt (a) * 4); end.
2. var x : integer; begin read (x); if (x mod 2 = 0) then writeln ('Четное') else writeln ('Нечетное'); if (x mod 3 = 0) then writeln ('Делится на 3') else writeln ('Не делится на 3'); end.
Неизбежны. Потому что разумное человечество развивается, но при этом в людях все еще находиться их животная сущность. Это у обезьян в бананах счастье, А страны, люди хотят нахапать побольше чтобы жизнь была для них лучше и легче. Неизбежны войны, лучшие умы человечества работают чтобы изобрести новые устройства для захвата и доминирования. И только после того как технологии устареют или потеряют стратегическое преимущество их внедряют в жизнь простых людей. Так появился интернет, сотовый телефон, вай фай. Но не все так плохо. С каждой новой информационной революцией происходит подъем уровня сознания и интеллекта среди людей что означает что информационные революции будут всегда.
"Я хочу чаю" 1. Если чай для заварки есть, перейти к 3 2. Купить чай для заварки 3. Если в чайнике нет воды, перейти к 5 4. Вылить из чайника остатки воды 5. Наполнить чайник свежей водой 6. Начать нагрев воды в чайнике 7. Если чай завариваем из пакетика, перейти к 20 8. Если в заварочный чайник пуст, перейти к 10 9. Очистить и вымыть заварочный чайник 10. Положить заварку в заварочный чайник 11. Если вода в чайнике закипела, перейти к 14 12. Подождать 10с (можно другое время) 13. Перейти к 11 14. Залить заварку в заварочном чайнике водой 15. Ждать 1 мин 16. Если чай заварен недостаточно, перейти к 15 17. Налить заварку в чашку 18. Добавить в чашку воды 19 Перейти к 24 20 Налить воды в чашку 21 Положить в чашку пакетик с чаем 22 Ждать 30с 23 Если чай заварен недостаточно, перейти к 22 24 Если чай без сахара, перейти к 26 25 Добавить сахар в чай 26. Пить чай
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.