PROGRAM Z13;
const n=6; m=7;
var a: array[1..n, 1..m] of integer;
i,j,k:integer;
begin
k:=2;
for j:=1 to m do
begin
for i:=1 to n do a[i,j]:=k;
k:=k+3;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.<span>
</span>
Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
Язык C++.
#include <iostream>
using namespace std;
int main () {
float a, b, c, p;
cout << "Введите стороны треугольника: " << endl;
cin >> a >> b >> c;
if (a + b > c && a + c > b && b + c > a) {
cout << "Периметр треугольника: " << a+b+c << endl;
}
else {
cout << "Треугольник не существует." << endl;
}
}
В задаче №3 вижу только одну ошибку. Имя программы не может начинаться с цифры.
Задача №4 представлена частично, поэтому определить наличие ошибок здесь проблематично.
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.