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

Коли можна застосувати команду циклу?(Вибрати всі правильні відповіді)

Якщо потрібно вивести послідовність чисел

Якщо потрібно порахувати суму двох чисел

Якщо потрібно обчислити суму послідовних чисел

Якщо потрібно знайти остачу віід ділення

Якщо потрібно вивести багато разів однакове повідомлення​

👇
Ответ:
vtest1958
vtest1958
30.08.2022

Объяснение:

Якщо потрібно вивести послідовність чисел

Якщо потрібно обчислити суму послідовних чисел

Якщо потрібно вивести багато разів однакове повідомлення

4,6(35 оценок)
Открыть все ответы
Ответ:
justnastasyaaa
justnastasyaaa
30.08.2022
A,b,c - стороны прямоугольного треугольника;
d - радиус описанной окружности около прям. треуг.
e - длинна окружности описанной около прямоуг. треугольника;

var a,b,c,d,e:Real;
begin
writeln ('Введите (через пробел) 2 катета прямоугольного треугольника: ');
readln (a,b); //вводим 2 катета
c:=SQRT((a*a)+(b*b)); //находим 3 сторону (гипотенузу)
d:=0.5*c; //радиус описанной окружности около прям. треуг
e:=2*3.14*d; //теперь находим длину окружности описанной около прям. треуг.
writeln ('Длина окружности описанной около прямоугольного треугольника = ',e);
end.

P.S. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
4,6(16 оценок)
Ответ:
xaxaxxa
xaxaxxa
30.08.2022
Program Program1;
var i, n: integer;
var result1, result2, sum: real;
var array1: array [0..1000] of real;
begin
     randomize;
     result1 := 0;
     sum := 0;
     write('Введите значение N (не менее 0 и не более 255): ');
     readln(n);
     for i := 1 to n do
         begin
          array1[i] := random(1000) - random(1000);
         end;
         begin
          writeln('Массив размером - ', n, ' элементов(а):');
          for i := 1 to n do write(array1[i], ' ');
          writeln;
         end;
     for i := 1 to n do
         begin
          if array1[i] > 0 then result1 := result1 +1;
         end;
     for i:=1 to n do sum := sum + array1[i];
     result2 := sum / n;
     writeln('Количество положительных элементов массива = ', result1);
     writeln('Среднее арифметическое = ', result2);
end.
4,5(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ