Составте ребус к словам информатика и кодирование

Program kurs; {$apptype console uses sysutils; type //раздел описания типов данных tarray=array [1..20,1..40] of byte; //описание типа двумерного //массива 20x40 элементов tarray2=array [1..400] of byte; // описание типа массива из 400 //элементов var //раздел объявления переменных a: tarray; //массив с результатами эксперимента b: tarray2; //сформированный одномерный массив n, //количество столбцов массива a m, //количество строк массива a k: byte; //размер массива b d: byte; //количество искомых элементов s: real; //среднее арифметическое элементов массива в //=========================================== // функция ввода массива. возвращает размер массива n, m и //введенный массив z function inputarray(var z: tarray; var m, n: byte): boolean; var i,j: byte; // индексные переменные begin //вывод сообщения о вводе n writeln('введите размер массива n: '); //вводим n readln(n); … end; //процедура вывода одномерного массива y размерностью k procedure outputarray(y: tarray2; k: byte); var i: byte; //индекс массива begin … end; //процедура создания одномерного массива y //из двумерного х по заданной схеме procedure create(x: tarray; m: byte; n: byte; var y: tarray2; var k: byte); var i, //индекс массива j: byte; //индекс массива l,t: byte; //индексы массива s: set of byte; //множество элементов массива f: boolean; //флаг наличия схожего элемента //в нижней части массива begin … end; end; //конец процедуры //процедура поиска среднего арифметического function srznach(x: tarray2; n: byte): real; var i: byte; //индекс массива sr: real; //переменная для подсчета среднего арифметического begin … end; //процедура подсчета в массиве х элементов, //которые отличаются от значения sr больше чем на 50%. //возвращает количество искомых элементов k procedure calc(x: tarray2; n: byte; sr: real; var k: byte); var i: byte; //индексы массива begin i: =1; //задаем начальный индекс массива k: =0; … end; //начало основной программы begin … end. //конец программы

Объяснение:

#include<iostream>

#include<math.h>

using namespace std;

Int main()

{

Double ch,min,sec,ch1,min1,sec1,ch2,min2,sec2,minut;

setlocale (LC_ALL, " rus");

cout<<"Введите время начала разговора ch1, min1, sec1 " << "\n";

cin>>ch>>min>>sec;

Cout<<"Введите врямя конца разговора ch2 ,min2, sec2 "<<"\n";

cin>> ch2>>min2>>sec2;

ch=ch2-ch1;

min=min2-min1;

sec=sec2-sec1;

min=ch*60+min+(sec/60);

minut=min*30;

Cout<<"Стоимость разговора = "<<minut<< " копеек "

return 0;

}