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

Элементам массива присвоена следующие значения:
М(9)=18;М(10)=17;М(11)=5;М(12)=3;М(13)=9
Затем выполняют следующие команды:
С:=0
for i:=9 to 13 do
If(i mod 2=0)then
C:=C+M(i)
else
C:=C-M(i)
Напишите значение С

Показать ответ
Ответ:
Дінислам
Дінислам
27.02.2023 19:37
C:
#include <stdio.h>

int main()

char name[10];
int year;
printf("Введите Ваше имя: ");
scanf("%s",&name);
printf("Здравствуйте, %s\n",name);
printf("Введите год рождения: ");
scanf("%d",&year);
printf("Вам %d  лет\n", 2017-year);
return 0;
}

Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет

C++
#include <iostream>
#include <string>
using namespace std;

int main()
{
    string name;
    int year;
    cout << "Введите Ваше имя: ";
    getline (cin, name);
    cout << "Здравствуйте, " << name << endl;
    cout << "Введите год рождения: ";
    cin >> year;
    cout << "Вам " << 2017-year << " лет" << endl;
    return 0;
}

Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет
0,0(0 оценок)
Ответ:
scorpu
scorpu
14.08.2021 20:47
Const
   N = 3;
   M = 4;
Var
   A:array[1..N,1..M] of real;
   i,j:integer;
   Sr,B,C:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random()*13;
        Write(A[i,j]:6:3,' ')
        End;
    WriteLn;
    End;
WriteLn;
WriteLn('Сглаженная матрица:');
For i:= 1 to N do
    Begin
    B:=A[i,1];
    C:=A[i,2];
    A[i,1]:=(B+C)/2;
    For j:= 2 to M-1 do
        Begin
        Sr:=(B+C+A[i,j+1])/3;
        B:=A[i,j];
        A[i,j]:=Sr;
        End;
    A[i,M]:=(B+A[i,M])/2
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(A[i,j]:6:3,' ');
    WriteLn;
    End
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота