У меня код на Си. Сумеешь перенести на плюсы?
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <locale.h>
int main() {
setlocale (LC_ALL, "RUS");
int a, b, S, P;
printf("Введите длину прямоугольника: ");
scanf ("%d", &a);
printf("Введите ширину прямоугольника: ");
scanf ("%d", &b);
S = a * b; P = (a + b) * 2;
printf ("Площадь - %d \n Периметр - %d \n", S, P);
if (S > P)
printf ("Площадь больше периметра\n");
else
printf("Периметр больше площади\n");
system ("pause");
return 0;
}
65(8)=53(10)< 53(7)=38(10)
Program abc;
var a:integer;
BEGIN
writeln ('2+1*3=?');
read (a);
if a=5 then
writeln ('Ты молодец')
else ('Не правильно, попробуй еще раз');
END.
<h3>// PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:=MatrRandom(5,5,-99,99);
a.Println(4);
(4*a.ColCount*'-').Println;
$'Сумма чисел в пятом столбце: {a.Col(4).Sum}'.Println
end.