Arinakap22

02.04.2022 08:51 •  Другие предметы

Задача №1.
Program chetnoe;
var n:integer;
begin
write('Введите n= ');
readln(n);
if (n mod 2=0) then
writeln('n - четное')
else
write('n- нечетное');
readln;
end.
Задача №2
program raduga;
uses crt;
var p:integer;
begin
clrscr;
Write ('введите число р='); readln(p);
writeln ('цвет радуги');
if (p<=7) then
begin
if (p=1) then write('красный');
if (p=2) then write('оранжевый');
if (p=3) then write('желтый');
if (p=4) then write('зеленый');
if (p=5) then write('голубой');
if (p=6) then write('синий');
if (p=7) then write('фиолетовый');
end
else write('нет такого цвета');
end.
Задача №3.
program golos;
uses crt;
var a:real;
begin
write('Введите ваш возраст a= ');
read(a);
if (a>=18) then
write('Вы можете голосовать')
else
write('Вы не можете голосовать'); readln;
end.
Задача №4.
program kvadUr;
uses crt;
var a,b,c,x1,x2,d:real;
begin
write('решить квадратное уравнение');
write('Введите a= ');
read(a);
write('Введите b= ');
readln(b);
write('Введите c= ');
readln(c);
d:=b*b-4*a*c;
if (d<0) then write('нет действительных корней')
else
x1:=(-b-SQRT(d))/(2*a);
x2:=(-b+SQRT(d))/(2*a);
writeln('x1= ',x1:12:7, 'x2= ',x2:12:7);
readln;
end.