Задача №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:=bb-4a*c;
if (d<0) then write('нет действительных корней')
else
x1:=(-b-SQRT(d))/(2a);
x2:=(-b+SQRT(d))/(2a);
writeln('x1= ',x1:12:7, 'x2= ',x2:12:7);
readln;
end.

132

266

Посмотреть ответы 1

Ответы на вопрос:

gordeevlogain2

4,8(40 оценок)

Скелето мішечная система локомоторная система комплекс структур образующих карказ

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.