Valeriag2000
20.10.2021 08:17

Oпределите значение переменной b после выполнения следующего фрагмента алгоритма:
a = 3
b=a*a-2
a=b+a

Определите значение переменной
c после выполнения следующего фрагмента алгоритма:

a=4
b=5
a=b-a*2
If 2*a>=b then c=a+b else c=a-b

Определите значение переменной s после выполнения следующего фрагмента алгоритма:

S=10
k=10
While k>=0 do
S= s+5
k=k-2
Writeln (s)

Определите значение переменной m после выполнения следующего фрагмента алгоритма:

m=0
for k=10 to 20 do
If (k mod 3=1) then m=m+1
writeln(m)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Eduard10Kulanov
13.12.2021 06:05

Служби Інтернету

За своєю архітектурою Інтернет — це клієнт-серверна мережа, тобто в ній є сервери, що підтримують роботу певних служб, і клієнти, які користуються цими службами. Найвідомішими та найпоширенішими службами Інтернету вважаються Всесвітня павутина й електронна пошта.

Інтернет також є платформою, на основі якої будуються файлообмінні мережі й електронні платіжні системи, розвиваютьсяінтернет-телебачення та інтернет-телефонія.

Кожна служба Інтернету має власні протоколи, що застосовуються для взаємодії між користувачем (клієнтською прикладною програмою) та службою.

Служба Інтернету — це набір послуг, які надаються клієнтам програмним забезпеченням серверів Інтернету з використанням певних мережних протоколів.

Зараз ви ознайомитесь з основними службами Інтернету та дізнаєтесь, які можливості вони надають користувачам.

До служб Інтернету відносяться:

Веб Веб-форуми Блоги Вікі-проекти (в тому числі й Вікіпедія) Інтернет-магазини Інтернет-аукціони Електронна пошта та списки розсилки Групи новин (в основному, Usenet) Файлообмінні мережі Електронні платіжні системи Інтернет-радіо Інтернет-телебачення IP-телефонія Системи обміну повідомленнями FTP-сервери IRC  

 

0,0(0 оценок)
Ответ:
pashacherepano
13.06.2020 08:19

1)а

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота