Презентация - "Первичное знакомства с программированием(Практическое занятие)"

1. Зарегистрироваться в журнале

2.Включить ПК

3.ВЫБРАТЬ УЧЕНИК ИЛИ ПАРОЛЬ 410022

4. СОЗДАТЬ ПАПКУ НА РАБОЧЕМ СТОЛЕ С ВАШИМИ ФАМИЛИЯМИ

ОТКРЫТЬ PascalABC.NET или FREE

Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V =
abc и площадь поверхности S = 2(ab + bc + ac).

Program_Testovoe7klass;

var a,b,c: integer;

var V,S: real;

begin

a:=6;
b:=3;
c:=9;

V:=a*b*c;

S:=2*(a*b+b*c+a*c);

writeln (V);
writeln (S);

end.

program parallelipiped;
var a,b,c: integer;
var V,S: real;
begin
a:=6;
b:=3;
c:=9;
V:=a*b*c;
S:=2*(a*b+b*c+a*c);
writeln (V);
writeln (S);
end.