Написать программу, которая при вводе числа, определяет кто это - дошкольник, школьник, студент, рабочий или пенсионер. Решение: program voz; var v:integer; begin writeln('Ввести возраст'); readln(v); case v of 1..6:writeln('Дошкольник'); 7..18:writeln('Школьник'); 19..25:writeln('Студент'); 26..54:writeln('Рабочий'); 55..100:writeln('Пенсионер'); end; END. Написать программу возведения числа A в степень n. Решение: program vozv; uses crt; var a,n,i,k:integer; BEGIN clrscr; writeln('Ввести число='); readln(a); writeln('В какую степень хотите возвести число?='); readln(n); k:=1; for i:=1 to n do k:=k*a; write('Ответ =',p); readln; END. Гражданин 1 декабря открыл счет в банке, вложив А рублей. Через каждый месяц вклад увеличивался на 2.5 процента от имеющейся суммы. Определить, через сколько месяцев вклад достигнет суммы больше, чем В рублей. Решение: Program grajdanin; var m:integer; a,b:real; BEGIN write('A=');readln(a); write('B=');readln(b); m:=0; while (a<=b) do begin m:=m+1; a:=a+(a*0.025); end; writeln('через ',m,' месяцев'); readln; END. Составить программу которая решит эту систему уравнений: y=-1 есл х>0 y= 0 если x<0 y=1 если x=0 Решение: program olol; var x,y:integer; BEGIN writeln ('vvesti x'); readln(x); if (x>0) then y:=-1; if (x<0) then y:=0; if (x=0) then y:=1; writeln(y) END. Написать программу пересчета величины временного интервала заданного в минутах в величину выраженную в часах и минутах. program int; var t,c,m:integer; BEGIN writeln(‘Введите время в минутах ‘); readln(t); m:=t mod 60; c:=t div 60; writeln (c, ‘часов ‘, m, ‘ минут’); readln; END. Написать программу вычисления площади треугольника если известны длины двух сторон и величин угла между этими сторонами. Решение: Program ploshad; var a,b,s,u:real; BEGIN writeln('Ввести длины сторон треугольника'); readln(a,b); writeln('Ввести величину угла между ними'); readln(u); S:=1/2*a*b*sin(u); writeln('Площадь равна',S); END. Объяснение: Думаю здесь все понятно, главное знать формулу нахождения площади треугольника если известны две стороны и угол между ними. Написать программу вычисления стоимости поездки на дачу (туда и обратно). Расстояние до дачи в км, количество бензина которое сжигает автомобиль на 100км. Цена 1 литра бензина. Решение: program avto; var k,s ,a:real; BEGIN writeln('Вычисление стоимости поездки на дачу и обратно.'); writeln('Расстояние до дачи(км) ->'); readln(S); writeln('Расход бензина(литров на 100км пробега) ->'); readln(k); writeln('Цена литра бензина(руб) ->'); readln(a); B:=2*s/100*A*k; writeln('Поездка обойдется в ',b,'руб); readln; END. Объяснение: При запуске программы введется следующие: Вычисление стоимости поездки на дачу и обратно. ->enter Расстояние до дачи(км) -> вводим число ->enter Расход бензина(литров на 100км пробега) -> вводим число ->enter Цена литра бензина(руб) -> вводим число ->enter Далее высчитывается стоимость поездки по формуле B:=2*s/100*A*R и выводится ответ.