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

Написать подпрограмму, которая для целого числа определяет сумму разрядов «тысяч» и
«десятков» в его записи (например, 2347  2+4=6). В основной программе ввести два целых числа.
С подпрограммы определить суммы в двух введенных числах и распечатать их.

Показать ответ
Ответ:
evgen90079
evgen90079
02.07.2021 11:14
В PascalABC.Net
var
  x:real;
begin
  Writeln('  x      y');
  x:=-1;
  while x<=1 do
  begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end
end.

Результат выполнения программы:
  x      y
-1.0  11.00000
-0.9  10.95106
-0.8  10.80902
-0.7  10.58779
-0.6  10.30902
-0.5  10.00000
-0.4   9.69098
-0.3   9.41221
-0.2   9.19098
-0.1   9.04894
 0.0   9.00000
 0.1   9.04894
 0.2   9.19098
 0.3   9.41221
 0.4   9.69098
 0.5  10.00000
 0.6  10.30902
 0.7  10.58779
 0.8  10.80902
 0.9  10.95106
 1.0  11.00000

Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;
0,0(0 оценок)
Ответ:
leonkrotovv
leonkrotovv
31.01.2020 16:31
#include <stdio.h>
#include <iostream>
#include <malloc.h>
const int N = 10;
int main()
{
setlocale(LC_ALL, "RUS");
int i, j=0, n=0;
int array[N];
int *a;
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("Введите %d элемент:", i);
scanf("%d", &array[i]);
}
system("cls");
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("%d ", array[i]);
}
printf("\n");
for (i=0; i<N; i++)
if (array[i] == 0)
n++;
printf("Новый массив:\n");
a = (int *)malloc(n*sizeof(int));
for (i=0; i<N; i++)
  if (array[i] == 0) {
    a[j] = i;
    printf("%d ", a[j]);
    j++;
  }
free(a);
printf("\n");
system("pause");
return 0;
}

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