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

1. Створити проект «Вікова періодизація людини». Визначити до якого вікового періоду належить людина за її відповідним віком, якщо 0-1 рік
немовля, 1-12 - дитинство, 12-16 – підлітковий вік, 16-21 – юнацтво,
21-61 – зрілість, 61-90 — похилий вік, 90 і більше - довгожителі.
2. Створити проект, який обчислить суму т чисел, перше з яких дорівнює
у, а кожне наступне дорівнює кубу попереднього.​

👇
Открыть все ответы
Ответ:
VikaPika561
VikaPika561
29.01.2023
Pascal
1. var a, b: real;
begin
  write('Введите стороны прямоугольника: ');
  read(a, b);
  writeln('Периметр = ', 2 * a + 2 * b); 
end.

2. var p, b: real;
begin
  write('Введите два числа: ');
  read(p, b);
  writeln('Произведение = ', p * b);
  writeln('Разность = ', p - b);
end.

3. var b: real;
begin
  write('Введите длину ребра: ');
  read(b);
  writeln('Объем = ', b * b * b);
end.

4. var r: real;
begin
  write('Введите радиус: ');
  read(r);
  writeln('Площадь = ', 3.14 * r * r);
end.

5. var a, b, c: real;
begin
  write('Введите три стороны: ');
  read(a, b, c);
  writeln('Периметр = ', a + b + c);
end.
4,5(78 оценок)
Ответ:
MiFanMF
MiFanMF
29.01.2023
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
  randomize;
  k:=1; p:=1;
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do
    Begin
      A[i,j]:=random (100);
      if A[i,j]>A[k,p] then
      begin
        k:=i;
        p:=j;
      end;
      Write(A[i,j]:3);
    end;
    Writeln;
  end;
 
  writeln ('Максимальный элемент матрицы = ', A[k,p]);
  write ('Он находится в строке №' , k);
  writeln (' и в столбце №' , p);
  Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
  i:=A[k,p];
  A[k,p]:=A[1,1];
  A[1,1]:=i;
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do Write(A[i,j]:3);
    Writeln;
  end;
end.
4,8(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ