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

Напишите программу, которая вычисляет сумму 2 + 5 + 8 + ... + 32, а

👇
Открыть все ответы
Ответ:
LalkaDestroyer
LalkaDestroyer
25.02.2022
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 лет
4,8(14 оценок)
Ответ:
savchenko29
savchenko29
25.02.2022
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.
4,5(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ