1. Исправьте ошибки в записи оператора ветвления
If x:= 5 then y:=y*x; writeln(‘y равен , y’); else y:=0;
2.Чему равно значение переменной Y после выполнения фрагмента программы
A:=5; B:=14;
if A>B then Y:=A div B else Y:=B div A;
3.Какое значение будет иметь переменная z после выполнения операторов:
z:=0;
if x>0 then
if y>0 then z:=1 else z:=2; если x=1 и y=-1?
4. На вход программе подается три числа. Определите, превышает ли среднее арифметическое этих чисел 10. Вывести соответствующее сообщение.
Служби Інтернету
За своєю архітектурою Інтернет — це клієнт-серверна мережа, тобто в ній є сервери, що підтримують роботу певних служб, і клієнти, які користуються цими службами. Найвідомішими та найпоширенішими службами Інтернету вважаються Всесвітня павутина й електронна пошта.
Інтернет також є платформою, на основі якої будуються файлообмінні мережі й електронні платіжні системи, розвиваютьсяінтернет-телебачення та інтернет-телефонія.
Кожна служба Інтернету має власні протоколи, що застосовуються для взаємодії між користувачем (клієнтською прикладною програмою) та службою.
Служба Інтернету — це набір послуг, які надаються клієнтам програмним забезпеченням серверів Інтернету з використанням певних мережних протоколів.
Зараз ви ознайомитесь з основними службами Інтернету та дізнаєтесь, які можливості вони надають користувачам.
До служб Інтернету відносяться:
Веб Веб-форуми Блоги Вікі-проекти (в тому числі й Вікіпедія) Інтернет-магазини Інтернет-аукціони Електронна пошта та списки розсилки Групи новин (в основному, Usenet) Файлообмінні мережі Електронні платіжні системи Інтернет-радіо Інтернет-телебачення IP-телефонія Системи обміну повідомленнями FTP-сервери IRC1)а
var a:real;
begin
readln(a);
a1 := a*a; /получили а^2
a := a1*a1; /получили a^4
a := a1*a*a; /получили a^(4+4+2)
writeln(a);
end.
1б)
var x:real;
i:integer;
begin
readln(a);
a1 := a*a*a; /получили а^3
a := a1*a1*a1; /получили a^9
a := a*a1*a1; /получили а^(9+3+3)
writeln(a);
end.
2)
var a:real;
begin
readln(a);
writeln('высоты равны', a*a*sqrt(3)/4*a);
writeln('Радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4);
writeln('Радиус описанной окружности', a*a*sqrt(3)/4*2/3*a);
end.
3)var a:real;
begin
readln(a);
writeln('В килобайтах' a/1024);
writeln('В мегабайтах' a/(1024*1024));
end.