Составить программу, которая запрашивает три целых числа и выводит среднее из них. (которое больше одного, но меньше другого). Пример входных данных: 55, 108, 34 Ваша программа должна вывести: 55 СДЕЛАТЬ В ПАСКАЛЕ whiele и repeat НЕ ПРОХОДИЛИ
{ Пример программы для процедуры FloodFill } Uses Graph,Crt; Var Gd, Gm : Integer; Begin Gd:=Detect; InitGraph(Gd, Gm, ''); If GraphResult <> grOk Then Halt(1); SetColor(GetMaxColor); Circle(50, 50, 20); FloodFill(50, 50, GetMaxColor); Readkey; CloseGraph; End.
Procedure FloodFill(X, Y : Integer; Border : Word); Закрашивает замкнутую область, используя текущие стиль и цвет закраски.
Procedure SetFillStyle(Pattern : Word; Color : Word); Устанавливает цвет и стиль закраски.
Программа на Pascal var Age : integer; begin Repeat Write('Введите Ваш возраст: '); Readln(Age); until Age in [1..99]; if Age in [10..20] then Writeln('Мне ', Age, ' лет') else case Age mod 10 of 1: Writeln('Мне ', Age, ' год'); 2, 3, 4 : Writeln('Мне ', Age, ' года'); 0, 5..9 : Writeln('Мне ', Age, ' лет'); end; end. программа на C++ #include <iostream> using namespace std; int main() { setlocale(LC_ALL,"rus"); int k; cin>>k; if(k >0 && k<100) cout<<"Мне "<< k <<" лет"; system("pause >> void"); }
незнаю