Помогите решить задачи по паскалю АВС
3.5 Напишите программу, которая вычисляет
значение логического выражения, утверждающего, что синус суммы трёх введённых
с клавиатуры действительных чисел - число положительное. Результат вычисления
выводится на экран монитора.
5.5 Зведите количество посадочных мест.
Напечатайте соответствующий этому количеству вид транспорта:
"велосипед", "мотоцикл", "легковой
автомобиль",
"микроавтобус",
"автобус". (Возможны
другие варианты)
6.5 Напишите
программу, которая возводит действительное число, введённое с клавиатуры, в
степень, введённую с клавиатуры в диапазоне от 2 до 9. Исключите несуществующие
(меньше 2 и больше 9) степени, и снабдите программу запросом об окончании
работы.
7.5 Нарисуйте олимпийский
флаг.
8.5 Нарисовать
"веер", состоящий из 50
разноцветных линий.
9.5 Изобразите фрагмент дуги радуги.
10.5 Вычислить А (А+1)(А+2)...(A+N), для А и N введённых с клавиатуры.
//Program 10.5;
Uses crt;
Var x,a,i,n:integer;
Begin
Write(' a='); readln(a);
Write(' b='); readln(b);
for i:=1 to n do
X:=x*(a+i);
Writeln(' x=',x);
End.
var s:boolean;
a,b,c:real;
function sinus_summy(a1,b1,c1:real):boolean;
begin
if sin(a1+b1+c1)<0 then sinus_summy:=true else sinus_summy:=false;
end;
begin
writeln('Введите три числа. ');
readln(a,b,c);
s:=sinus_summy(a,b,c);
if sinus_summy then writeln('Синус суммы положительный. ')
else writeln('Синус суммы не положительный. ');
end.
решите 5.5 плиз тоже надо
program flag;
uses graphABC;
begin
setwindowwidth(800);
setwindowheight(600);
setfontsize(18);
setbrushcolor(clwhite);
rectangle(200,200,550,250);
textout(210,210,'Да здравствует Россия ');
setbrushcolor(clblue);
rectangle(200,250,550,300);
setbrushcolor(clred);
rectangle(200,300,550,350);
line(200,250,200,450);
end.