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

10 вопросов на тему роботы в жизни человека

👇
Открыть все ответы
Ответ:
Alou16
Alou16
06.06.2020
Uses Crt;

Procedure R(Nazvanie:string; Cvet:byte);
Begin
TextBackground(Cvet);
ClrScr;
GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2);
Write(Nazvanie);
End;

Var n:byte;
Begin
HideCursor;
TextBackground(0);
ClrScr;
TextColor(15);
GotoXY(WindowWidth div 2-12,WindowHeight div 2);
Write('Введите номер дня недели');
Case ReadKey of
'1':
    R('Понедельник',4);
'2':
    R('Вторник',14);
'3':
    R('Среда',2);
'4':
    R('Четверг',9);
'5':
    R('Пятница',1);
'6':
    R('Суббота',13);
'7':
    R('Воскресенье',12);
else R('В неделе сейчас семь дней!',0);
End;
ReadKey
End.
4,8(7 оценок)
Ответ:
Ramaz7771
Ramaz7771
06.06.2020
Const
   N = 5;
   M = 3;
Var
   X:array[1..N,1..M] of integer;
   i,j:integer;
   S:real;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        X[i,j]:=random(41)-20;
        Write(X[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn('Новый массив:');
For i:= 1 to N do
    Begin
    For j:=1 to M do
        Begin
        if X[i,j] mod 5 = 0 then X[i,j]:=0;
        S:=S+X[i,j];
        Write(X[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn('S = ',S);
ReadLn
End.
4,7(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ