PROGRAM NAME;
VAR A: INTEGER;
BEGIN
WRITE(‘A->’);
READLN(A);
WRITELN(‘А=’,A);
END;
ТЕСТИРОВАНИЕ: A->5
А=5
PROGRAM NAME;
VAR A: INTEGER;
BEGIN
WRITE(‘A->’);
READLN(A);
A:=A*2+10;
WRITELN(‘А=’,A);
END;
PROGRAM NAME;
VAR A: INTEGER;
BEGIN
WRITE(‘A->’);
READLN(A);
A:=A*2+10;
WRITELN(‘А=’,A);
END;
ТЕСТИРОВАНИЕ:
A->3
А=16
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =87.53
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =47.57
Радиус=2,5
Высота выемки=2
Ширина выемки=0,5
Высота ребра монеты=0,3
Масса =93,03
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =75.44
Радиус=2,5
Высота выемки=2
Ширина выемки=0,5
Высота ребра монеты=0,3
Масса =40,84
Радиус=2,5
Высота выемки=2
Ширина выемки=0,5
Высота ребра монеты=0,3
Масса =119,85
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =33.12
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =97.19
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =51.38
R1=2,5
R2=1.2
Высота ребра монеты=0,3
Масса =35.34
Проверь себя:
Program moneta1;
var R1,R2,M,H,S1,S2,V,PLOT : real;
Begin
writeln(‘R1,R2,M,H->’);
readln(R1,R2,M,H);
S1:=3.14*SQR(R1);
S2:=3.14*SQR(R2);
V:=(S1-S2)*h;
PLOT:=M/V;
Writeln(‘Плотность =’, PLOT);
End.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть