На алгоритмическом языке или любом языке программирования. 1. найти частное двух чисел. (подробное описание)

//на паскале var a,b: integer; //обозначаем целые переменные cp: real; //обозначаем вещественную переменную begin// начало write('введите делимое ='); read(a); //вводим переменную a или делимое write('введите делитель ='); read(b); //вводим переменную b или делитель cp: =a/b; // считаем частное writeln('частность чисел ',a,'/',b,'=',cp); //выводим частное end.//конец

Язык pascal; program chastnoe; {название программы} var a, b, ch: real; {добавляем вещественные переменные a, b и ch} begin {начало} read(a, b); {вводим делимое и делитель через пробел}; ch: =a/b; {присваиваем переменной ch значение частного от a и b} write(ch); {выводим частное} end. {конец}

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.

#-*- coding: utf-8 -*- def getaveragefromeven(first, last):       '''среднее арифметическое.'''       count, s = 0, 0       for i in range(first, (last + 1)):               if i % 2 == 0:                       s += i                       count += 1       return s / count f = int(input('первый элемент: ')) l  = int(input('первый элемент: ')) print 'среднее арифметическое: %i' % getaveragefromeven(f, l)