1. Три точки плоскости заданы своими координатами. Выяснить, какая точка расположена ближе к началу координат.
2. Программа для целого числа К (от 1 до 99), введенного с
клавиатуры, печатает фразу «Мне К лет». При этом в нужных случаях
слово «лет» заменяет на «год» или «года».
3. Известны год, номер месяца и день рождения каждого из двух
человек. Определить, кто из них старше.
4. Дано натуральное четырехзначное число М. Является ли это
число палиндромом (перевертышем) с учетом четырех цифр, как
например, числа 2222, 6116, 0440 т.д.? Верно ли, что число содержит
З одинаковых цифры?
5. Определить, впишется ли квадрат в окружность, если известны
радиус окружности и сторона квадрата?
6. Определить принадлежность точки с координатами (х, у) сектору
круга радиуса К с центром в начале координат, расположенному в
первой четверти. Координаты точки и радиус вводятся с клавиатуры.
113
453
Ответы на вопрос:
1) var a,b,c: integer; begin readln(a,b,c); writeln(a,'+',b,'+',c,' = ',a+b+c); writeln(a,'*',b,'*',c,' = ',a*b*c); writeln('(',a,'+',b,'+',c,')/3 = ',(a+b+c)/3: 5: 3); end. пример: 4 5 7 4+5+7 = 16 4*5*7 = 140 (4+5+7)/3 = 5.333 2) var r: integer; begin readln(r); writeln('s = ',pi*r*r: 5: 3); writeln('c = ',2*pi*r: 5: 3); end. пример: 5 s = 78.540 c = 31.416 3) var a,b,i: integer; begin readln(a,b); for i: =1 to 5 do write(random(b-a+1)+a,' '); end. пример: 0 100 8 1 86 54 60
Популярно: Информатика
-
zarrrubinka22.06.2020 10:49
-
karinochka66602.07.2021 18:40
-
vik2005117.06.2021 14:14
-
gleb101pro19.11.2020 00:14
-
малый602.01.2021 13:29
-
SkriN12306.12.2020 00:32
-
odyvanchik2209.07.2020 15:41
-
milanashavhalo199219.11.2022 17:45
-
динани107.12.2021 11:12
-
wur1k24.05.2020 06:06