1.найти и вывести на экран все целые числа из промежутка от 1 до k, которые заканчиваются на цифру 3 2.найти сумму четных целых чисел на промежутке от 1 до k. 3.вывести все натуральные трехзначные числа, в которых есть заданная цифра. на паскале,
Ответы
113 в 10 СС = 1110001 в 2 СС
113 в 10 СС = 305 в 6 СС
113 в 10 СС = 71 в 16 СС
Объяснение:
113 / 2 = 56 + остаток 1
56 / 2 = 28 + остаток 0
28 / 2 = 14 + остаток 0
14 / 2 = 7 + остаток 0
7 / 2 = 3 + остаток 1
3 / 2 = 1 + остаток 1
1 / 2 = 0 + остаток 1
записываем остатки снизу вверх
113 в 10 СС = 1110001 в 2 СС
113 / 6 = 18 + остаток 5
18 / 6 = 3 + остаток 0
3 / 6 = 0 + остаток 3
записываем остатки снизу вверх
113 в 10 СС = 305 в 6 СС
113 / 16 = 7 + остаток 1
7 / 16 = 0 + остаток 7
записываем остатки снизу вверх
113 в 10 СС = 71 в 16 СС
Кривы́е Безье́ — типы кривых, предложенные в 60-х годах XX века независимо друг от друга Пьером Безье из автомобилестроительной компании «Рено» и Полем де Кастельжо из компании «Ситроен», где применялись для проектирования кузовов автомобилей.
Несмотря на то, что открытие де Кастельжо было сделано несколько ранее Безье (1959), его исследования не публиковались и скрывались компанией как производственная тайна до конца 1960-х.
Кривая Безье является частным случаем многочленов Бернштейна, описанных русским математиком Сергеем Натановичем Бернштейном в 1912 году.
Впервые кривые были представлены широкой публике в 1962 году французским инженером Пьером Безье, который, разработав их независимо от де Кастельжо, использовал их для компьютерного проектирования автомобильных кузовов. Кривые были названы именем Безье, а именем де Кастельжо назван разработанный им рекурсивный определения кривых (алгоритм де Кастельжо).
Впоследствии это открытие стало одним из важнейших инструментов систем автоматизированного проектирования и программ компьютерной графики.
Кривая Безье относится к частному классу алгебраических кривых, а именно: к кривым 3-го и 2-го порядков соответственно.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1)
Var K, I: Integer;
Begin
ReadLn(K);
For I:=1 to K do Begin
If (I-(I div 10)*10) mod 10 = 3 then WriteLn(I);
End;
End.
2)
Var K, I: Integer;
O: Longint;
Begin
ReadLn(K);
For I:=1 to K do Begin
If I div 2 = I / 2 then
O:=O+I;
End;
WriteLn(O);
End.
3)
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Я такое уже отвечал