3. 3D принтердің жұмысын қалай түсіндіре аласың? 4. Күнделікті тұрмыста 3D принтерді қандай мақсатта қолдануға
болады?

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.

Program summa;

 Uses crt;

 Const m=20;

 Var a:array[1..m] of integer;

     i,s:integer;

 Begin

   For i:=1 to m do

    a[i]:=random(101)-50;

   For i:=1 to m do

    s:=s+a[i];

   If s>50 then writeln('Сумма = ',s) else

    for i:= 1 to m do

      Writeln('Элемент массива №',i,' равен ',a[i]);

 End.

или

Program summa;

 Uses crt;

 Const m=20;

 Var a:array[1..m] of integer;

     i,s:integer;

 Begin

   For i:=1 to m do

    Readln(a[i]);

clrscr;

   For i:=1 to m do

    s:=s+a[i];

   If s>50 then writeln('Сумма = ',s) else

    for i:= 1 to m do

      Writeln('Элемент массива №',i,' равен ',a[i]);

 End.