Регистрация
Войти
Стать экспертом Правила
Информатика

СРОООЧНО!!!!!!!!!!!!!!!!(паскаль)написать программы

ОТВЕТЫ

var A, B, C: integer;
begin
  write('Введите A, B, C: '); readln(A, B, C);
  writeln('Сумма = ', A + B + C);
  writeln('Произведение = ', A * B * C);
end. 


var a,s,v:integer;
begin
  writeln('Введите длинну куба: ');
  readln(a);
  s:=6*a*a;
  v:=a*a*a;
  writeln('Объем = ', v);
  writeln('Площадь боковой поверхности = ', s);
end.


var A, B, C: integer;
begin
  A := 20; B := 13;
  C := A;
  A := B;
  B := C;
  writeln('A = ', A);
  writeln('B = ', B);
end. 


var A, B: integer;
begin
  A := 20; B := 13;
  A:=A+B;
  B:=A-B;
  A:=A-B;
  writeln('A = ', A);
  writeln('B = ', B);
end. 
652
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам