Задача №11.Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
Решение.
Program begin_11;
Uses crt;
Var a,b,s,d, p,v: integer;
Begin
ClrScr;
Writeln(‘vvedite dva chisla’); readln(a,b);
s:=a+b; p:=a-b; v:=a*b; d:=a/b
writeln(‘summa=’,s);
writeln(‘raznost’,p);
writeln(‘proizvedenie’,v);
writeln(‘chastnoe’,d);
Readln;
end.
Задача №12.Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.
Решение.
Program begin_12;
Uses crt;
Var a,b: integer;
c,p,s:real
Begin
Clrscr;
Writeln('введитеаи b'); readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
s:=1/2*a*b;
writeln(‘s=’,s:4:2,’p=’,p:4:2);
Readln;
end.
Задача №13.Дано четырехзначное число, найти в нем число тысяч, десятков и единиц.
Решение.
Program begin_13;
Uses crt;
Var a,b,c,d, x: integer;
Begin
ClrScr;
Writeln('введите четырехзначное число');
Readln(x);
a:= x div 1000;
b:=x (div 100) mod 10 ;
c := (x mod 100) div 10;
d:=x mod 10;
writeln(a,' тысяч ', b, 'сотен', c, 'десятков',d,'единиц');
Readln;
end.
Задача №14. Даны координаты диагонали прямоугольника. Найти его площадь.
Решение.
Program begin_16;
uses crt;
var x1,x2,y1,y2,s,a,b : real;
begin
clrscr;
write('x1=');readln(x1);
write('y1=');readln(y1);
write('x2=');readln(x2);
write('y2=');readln(y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
s:=a*b;
write('s=',s);
readln;
end.
Задача №15. Дан радиус шара. Найти его объем.
Решение.
Program begin_18;
uses crt;
var r,V: real;
Begin
ClrScr;
Writeln('введитерадиус r'); readln(r);
V:=4/3*PI*sqr(r)*r;
writeln('объемравен',v:4:2);
Readln;
end.
Разветвляющие
Задача №1.Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
Решение.
Program if_1;
Var a:integer;
Begin
Writeln('Введите число');
Readln(a);
If a>0 then a:=a+1;
Writeln('Полученное число ',a);
Readln;
End.
Задача №2.Дано целое число К. Вывести строку-описание оценки, соответствующей числу К( 1- «плохо», 2 –«неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично». Если К не лежит в диапазоне 1-5, вывести «ошибка».
Решение.
Program case_1;
Var k:integer;
Begin
Writeln('введитеоценку');
Readln(k);
Case k of
1:Writeln('плохо');
2:Writeln('не удовлетворительно');
3:Writeln ('удовлетворительно');
4:Writeln('хорошо');
5:Writeln('отлично');
Else Writeln('такой оценки не существует');
end;
Readln;
End.
Задача №3.Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
Решение.
Program if_2;
Var a:integer;
Begin
Writeln('Введите число');
Readln(a);
If a>0 then a:=a+1 else a:=A-2;
Writeln('Полученное число ',a);
Readln;
End.
Задача №4.Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательное - вычесть из него 2, если является нулевым – заменить на 10. Вывести полученное число.
Решение.
Program if_3;
Var a:integer;
Begin
Writeln('Введите число');
Readln(a);
If a>0 then a:=a+1 else
If a<0 then a:=a-2 else a:=10;
Writeln('Полученное число ',a);
Readln;
End.
Задача №5.Дано 3 целых числa. Найти количество положительных в исходном наборе.
Решение.
Program if_4;
Var a,b,c,k1:integer;
Begin
Writeln('Введитечисло');
Readln(a);
Writeln('Введитечисло');
Readln(b);
Writeln('Введитечисло');
Readln(c);
k1:=0;
If a>0 then k1:=k1+1;
If b>0 then k1:=k1+1;
If c>0 then k1:=k1+1;
Writeln('Количество положительных чисел ',k1);
Readln;
End.
Задача №6.Дано 3 целых числa. Найти количество положительных чисел и количество отрицательных чисел в исходном наборе.
Решение.
Program if_5;
Var a,b,c,k1,k2:integer;
Begin
Writeln('Введите число');
Readln(a);
Writeln('Введитечисло');
Readln(b);
Writeln('Введитечисло');
Readln(c);
k1:=0;
If a>0 then k1:=k1+1 else if a<0 then k2:=k2+1;
If b>0 then k1:=k1+1 else if b<0 then k2:=k2+1;
If c>0 then k1:=k1+1 else if c<0 then k2:=k2+1;
Writeln('Количество положительных чисел ',k1);
Writeln('Количество отрицательных чисел чисел ',k2);
Readln;
End.
Задача №7.Дано 2 целых числa. Вывести большее из них.
Решение.
Program if_6;
Var a,b:integer;
Begin
Writeln('Введитечисло');
Readln(a);
Writeln('Введитечисло');
Readln(b);
If a>b then Writeln('Наибольшее ',a) else Writeln('Наибольшее ',b)
Readln;
End.
Задача №8.Дано 2 целых числa. Вывести порядковый номер меньшего из них.
Решение.
Program if_7;
Var a,b:integer;
Begin
Writeln('Введитечисло');
Readln(a);
Writeln('Введитечисло');
Readln(b);
If a<b then Writeln('Наименьшее 1-е') else Writeln('Наименьшее 2-е ')
Readln;
End.
Задача №9.Даны 2 переменные целого типа A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения А и B.
Решение.
Program if_8;
Var a,b:integer;
Begin
Writeln('Введитечисло');
Readln(a);
Writeln('Введитечисло');
Readln(b);
If a<>b then
begin
a:=a+b;
b:=a;
end
else
begin
a:=0;
b:=0;
end;
Writeln('a=',a);
Writeln('b=',b);
Readln;
End
Задача №10.Даны 3 числа. Определить, можно ли построить треугольник с указанными сторонами.
Решение.
program if_9;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln ('Введитесторонытреугольника a,b,c');
readln (a,b,c);
if (a>0) and (b>0) and (c>0) then
if (a<b+c) and (b<c+a) and (c<a+b) then
writeln ('треугольник существует')
else
writeln ('треугольник не существует')
else
writeln ('треугольник не существует');
Readln;
end.
Задача №11.Дано число. Определить, оканчивается ли данное число на цифру 7.
Решение.
Program If_10;
var a,b:integer;
Begin
writeln ('Введитечисло');
readln (b);
a:=b mod 10;
if (a=7) then writeln ('Число оканчивается на 7') else writeln ('Число не оканчивается 7');
Readln;
end.
Задача №112.Дано число. Определить, является ли данное число четным или нечетным.
Решение.
Program If_11;
var a:integer;
Begin
writeln ('Введитечисло');
readln (b);
if a mod 2 =0 then writeln ('Число - четное') else writeln ('Числонечетное');
Readln;
end.
Задача №13.Дан номер месяца – целое число в диапазоне 1-12( 1- январь, 2 –февраль и т.д.). Вывести название месяца.
Решение.
Program case_2;
Var k:integer;
Begin
Writeln('введите номер месяца ');
Readln(k);
Case k of
1:Writeln('январь');
2:Writeln('февраль');
3:Writeln ('март');
4:Writeln(' апрель');
5:Writeln('май');
6:Writeln('июнь');
7:Writeln('июль');
8:Writeln('август');
9:Writeln('сентябрь');
10:Writeln('октябрь');
11:Writeln('ноябрь');
12:Writeln('декабрь');
Else Writeln('такогомесяцанесуществует');
end;
Readln;
End.
Задача №14.Дан номер месяца – целое число в диапазоне 1-12( 1- январь, 2 –февраль и т.д.). Вывести название времени года («зима», «весна», «лето», «осень»).
Решение.
Program case_3;
Var k:integer;
Begin
Writeln('введите номер месяца ');
Readln(k);
Case k of
1,2,12:Writeln('зима');
3-5:Writeln('весна');
6..8:Writeln ('лето');
9..11:Writeln('осень');
Else Writeln('такого месяца не существует');
end;
Readln;
End.
Задача №15.Ввести возраст от 1 до 99. В зависимости от введенного возраста вывести фразу «Мне…лет(год, года)»
Решение.
Program case_4;
Var k:integer;
Begin
Writeln('Введитевозраст');
Readln(k);
Case k mod 10 of
1:Writeln('Мне ',k,' год');
2..4:Writeln('Мне ',k,' года');
0,5..9:Writeln ('Мне ',k,'лет');
Else Writeln('такого возраста не существует');
end;
Readln;
End.
Задача №16.Ввести номер месяца. Определить по введенному номеру – квартал.
Решение.
Program Case_5; var n:integer; begin write('Введите номер месяца:'); readln(n); case n of 1..3 :writeln('Первый квартал'); 4..6 :writeln('Второй квартал'); 7..9 : writeln('Третий квартал'); 10..12: writeln('Четвертый квартал') else writeln('Некорректный ввод') end; Readln end.
