1.
program pifagor;
var
a,b:real;
begin
write('Введите катеты 》 ');
read(a,b);
write('Гипотенуза 》 ',sqrt(sqr(a)+sqr(b)));
end.
2.
program temp2;
var
a:integer;
begin
write('Введите число 》 ');
read(a);
write('Последняя цифра числа 》 ',a mod 10)
end.
3.
program pifagor;
var
a:integer;
begin
write('Введите трехзначное число 》 ');
read(a);
write('Сумма цифр числа = ',a div 100+a div 10 mod 10+a mod 10);
end.
4.
A=50
B=20
A=40-30=10
10<20
C=2×10=20
5.
program kratnost;
var
x:integer;
begin
write('Введите X 》 ');
read(x);
if(x mod 5=0)
then
write('X Делится на 5')
else
write('X Не делится на 5')
end.
PascalABC.NET
#1
function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;
begin
var Xes := Range(3, 25);
Xes.Tabulate(p -> Y(p)).Println;
end.
#2
const PASS = '123ab';
begin
var rpass := Readstring('Pass: ');
while rpass <> PASS do begin
rpass := Readstring('Wrong pass. Try again: ');
end;
print('Correct password. Welcome');
end.
#3
begin
//Сначала читаем цифру, которую надо удалить, а уже потом число.
var X := ReadChar();
var number := ReadInteger().ToString.ToCharArray.ToList;
while number.Contains(X) do number.Remove(X);
number.JoinIntoString.Println;
end.
#4
begin
var X := ReadInteger();
Print((x div 100)+(x mod 100));
end.
Объяснение:
1Адитивні технології — одна з форм технологій адитивного виробництва, де тривимірний об'єкт створюється шляхом накладання послідовних шарів матеріалу (друку, вирощування) за даними цифрової моделі. ... 3D друк часто називають «магічною» технологією, оскільки дозволяє перетворювати, отримані в CAD-системах в готові вироби.
2Всё чаще 3D принтеры используют в протезировании и стоматологии, так как трёхмерная печать позволяет получить протезы и коронки значительно быстрее классической технологии производства
3 не знаю
4
Адитивні технології — одна з форм технологій адитивного виробництва, де тривимірний об'єкт створюється шляхом накладання послідовних шарів матеріалу (друку, вирощування) за даними цифрової моделі.
...
Селективне лазерне спікання
метал
полімер
глауконітовий пісок
5 не знаю
6 А от як не дивно сам термін "3D-друк" придумали нещодавно - у 1995 році в Массачусетському технологічному інституті. І відтоді всі машини, що забезпечують 3D-друк, ми називаємо 3D-принтерами