М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
spartanash
spartanash
04.06.2023 21:13 •  Информатика

Вычислить сумму всех четных чисел до 50 паскаль

👇
Ответ:
Mider123
Mider123
04.06.2023
Var
i, sum:integer;
begin
sum:=0; {важно обнулить}
for i:=2 to 50 do {если 50 не включать, то: i:=2 to 48}
if i mod 2 = 0 then sum:=sum+i;
writeln('Сумма четных чисел от 1 до 50 равна: ',sum);
end.
4,8(46 оценок)
Открыть все ответы
Ответ:
Kostia06
Kostia06
04.06.2023
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('Введите число a:');
  var n:=ReadInteger('Введите показатель степени n:');
  if n<=0 then begin
    Writeln('Показатель степени должен быть натуральным числом');
    Exit
    end;
  // перевод показателя степени в двоичную систему счисления
  var t:=n;
  var r:string:='';
  while t>=2 do (r,t):=(t mod 2+r,t shr 1);
  r:=t+r;
  // возведение в степень
  var (rr,i):=(a,2);
  while i<=r.Length do begin
    rr:=Sqr(rr);
    if r[i]='1' then rr*=a;
    i+=1
    end;
  Writeln(a,'^',n,' = ',rr)  
end.

Примеры
Введите число a: 3.182
Введите показатель степени n: 11
3.182^11 = 338611.675261463

Введите число a: 2
Введите показатель степени n: 10
2^10 = 1024
4,4(29 оценок)
Ответ:
elem0207
elem0207
04.06.2023

Ethernet — это самая распространённая технология локальных сетей в мире. Сотни миллионов устройств и высокий спрос на поддержку Ethernet-систем говорят о том, что изобретение 43-летней давности прочно закрепилось и никуда не исчезнет в ближайшее время.

Объяснение:

В ходе развития компьютерной техники Ethernet постоянно «переизобретали», добавляли новые возможности и сделали общепринятой сетевой технологией. В этом материале мы затронем тему эволюции Ethernet — от изобретения до превращения в стандарт международного уровня и основу огромного количества сетей.

4,7(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ