Program pr1;
Var
a,b,c,S,P: integer;
Begin
writeln ('vvedite 3 chisla');
readln (a,b,c);
S:=a+b+c;
writeln ('S=', S);
P:=a*b*c;
writeln ('P=', P);
readln;
End.
начало
a, b, c
S:=a+b+c
P:=a*b*c
S, P
конец
Program pr2;
Var
a,b,P: real;
Begin
writeln ('vvedite a,b');
readln (a,b);
P:=a+b+sqrt(sqr(a)+sqr(b));
writeln ('P=', P:6:2);
readln;
End.
a
b
P-?
10 mod 5 =
11 mod 5=
10 mod 3=
14 mod 5=
22 mod 5=
31 mod 16 =
17 mod -5=
-17 mod 5=
-17 mod -5 =
Д.з: Доказать, что
a mod b=a-(a div b)*b
(a div b) *b+ (a mod b)=a
проверить решение
program pr4;
var
n, m: integer;
Begin
writeln ('vvedite natur chislo');
readln (n);
m:=n mod 10;
writeln (‘poslednya zifra', m);
readln;
End.
начало
n
m:=n mod 10
m
конец
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть