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

Программа паскаль. составить программу, чтобы получилось слово pronsk/ заранее !

👇
Ответ:
Харли505
Харли505
31.01.2022

begin

write('PRONSK/');

end.

4,4(39 оценок)
Открыть все ответы
Ответ:
MaGaFaYa
MaGaFaYa
31.01.2022

Первая задачка:

#include "stdio.h"

#include "math.h"

#include <locale.h>

int main() {

int x,pr=1;

char* locale = setlocale(LC_ALL, "");

printf("Вводите числа, чтобы окончить последовательность введите: 0\n");

do {

 scanf_s("%d", &x);

 if (x%2!=0 && x < 16 & x !=0)

 pr *= x;

} while (x != 0);

printf("%d", pr);

return 0;

}

Вторая задачка:

#include "stdio.h"

#include "math.h"

#include <locale.h>

int main() {

int a100,k=1, a1 = 5, d = 4,n=100,s=0;

a100 = a1 + d * (n - 1);

printf("%d", a100);

printf("\n");

s = ((a1 + a100) / 2) * n;

printf("%d", s);

return 0;

}

4,6(33 оценок)
Ответ:
zandaryanartem1
zandaryanartem1
31.01.2022

Первая задачка:

#include <iostream>

#include <ctime>

using namespace std;

int main() {

setlocale(LC_ALL, "rus");

srand(time(NULL));

int x,sr1,sr2,sr=0;

for (int i = 0; i < 3; i++) {

 for (int i = 0; i < 10; i++) {

  x = 1 + rand() % 10;

  sr += x;

  cout << x << " ";

 }

 cout << endl;

 cout << "Среднее арифметическое этой последовательности: " << sr / 10;

 cout << endl;

}

return 0;

}

Вторая задачка:

#include <iostream>

#include "math.h"

using namespace std;

int main() {

int n;

double s=0,x;

cin >> n >> x;

for (int i = 1; i <= n; i++) {

 s += sin(pow(x, i));

}

cout << s;

return 0;

}

4,4(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ