В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
nata524
nata524
23.09.2020 07:59 •  Информатика

РЕШИТЬ
Дана программа на языке Паскаль.
Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 63, то «лёгкая категория» иначе «средняя категория». Заполните пустые окошки.

program ves;
const
A1='легкая категория';
A2='средняя категория';
var
s : integer;
begin
write('введите вес спортсмена
= ');
readln( );
if__ < __then writeln(A1) else writeln(A2);
readln;
end.

2)Дано целое число. Если оно является положительным, то прибавить к нему 22; в противном случае не изменять его. Вывести полученное число.

1 program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
readln;
end.
2 program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+22;
writeln(a);
readln;
end.
3 program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+22;
writeln(a);
readln;
end.

Показать ответ
Ответ:
ДимаБум
ДимаБум
28.04.2021 16:42
Program day;
var 
a: array[1..30] of integer; 
b, s, i, min: integer;
begin 
min := 999; 
Randomize; 
for i := 1 to 30 do   begin   
a[i] := random(9, -3);   
s := s + a[i];   
Write(a[i]:3); 
end; 
Writeln; 
Writeln('Ниже нуля '); 
for i := 1 to 30 do   begin    if a[i] > 0 then Write(i,'-го ');   
end;   
if a[i] = 0 then b := b + 1; 
Writeln; 
for i := 1 to 30 do    
if a[i] < min then min := a[i];   
Writeln('Самая низкая температура - ', min); 
Writeln('Средняя температура ноября ', s / 30);
end.
0,0(0 оценок)
Ответ:
auaftsuaftsa
auaftsuaftsa
10.03.2022 07:31

#include <iostream>

#include <clocale>

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian");

   int x, i, j, s;

   cout << "Введите x: ";

   cin >> x;

   for (int i = 2; i <= x; i++)

   {

       s = 0;

       for (int j = 1; j <= i / 2; j++)

       {

           if (i % j == 0)

           {

               s += j;

           }

       }

       if (s == i)

       {

           cout << i << " ";

       }

   }

}

Объяснение:

#include <iostream>  // Библиотека ввода-вывода

#include <clocale>  // Библиотека локализации (возможно, будет работать и без нее)

using namespace std;  // Пространство имён

int main()

{

   setlocale(LC_ALL,"Russian");  // Локализация в консоли (возможно, будет работать и без нее)

   int x, i, j, s;  // Объявление переменных

   cout << "Введите x: ";  // Выводим текст

   cin >> x;  // Вводим x с клавиатуры

   for (int i = 2; i <= x; i++)  // Выполняем до того момента, пока i <= x

   {

       s = 0;

       for (int j = 1; j <= i / 2; j++)  // Выполняем до того момента, пока j <= i ÷ 2 (без остатка)

       {

           if (i % j == 0)  // Если остаток от i ÷ j = 0

           {

               s += j;  // К s прибавляется j

           }

       }

       if (s == i)  // Если s = i

       {

           cout << i << " ";  // Выводим i с пробелом

       }

   }

}

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