No6 1) Тик бурчтуктуна жана b жактары берилген. Анын периметрин P=2*(a+b) аныктагыла. 2) y = sin(pi/2) функциясынын маанисин тапкыла 3) Жашы 18 ден ашкандар учун гана студент болууга боло турган программа тузгуло.
Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.
ответ на 1 задачу Алгоритм выглядит таким образом: ввести x, y; если x>y то s:=(x*y)*2; иначе s:=(x+y)/2; вывод s конец. (блок-схема прилагается в скриншоте 1)
На паскале выглядит примерно так: var x, y, s:real; begin readln(x,y); if x>y then s:=(x*y)*2; else s:=(x+y)/2;
writeln(s:2:2); end.
ответ на 2 задачу Тут идентичный алгоритм: вводим 2 переменные x, y, далее создаем условие и возводим в модуль... (скриншот 2 с блок-схемой)
ответ на 3 задачу Тут тоже.. в условии указываешь просто a<b<c, если условие верно, то выводишь "Верно", иначе "Не верно".
На паскале выглядит примерно так:
var a, b, c:integer; {если число вещественное} begin readln(a, b, c); if (a<b<c) then writeln("Верно"); else writeln("Неверно"); end.
ответ на 4 задачу На паскале: var a, b, c, max:integer; begin max:=0; readln(a,b,c); if max<a then max:=a; if max<b then max:=b; if max<c then max:=c;
writeln(max); end.
ответ на 5 вопрос На паскале:
Var a,b,c:integer; begin readln(a,b,c); if (a<0) then a:=a*a; writeln(a);
