1.
program pifagor;
var
a,b:real;
begin
write('Введите катеты 》 ');
read(a,b);
write('Гипотенуза 》 ',sqrt(sqr(a)+sqr(b)));
end.
2.
program temp2;
var
a:integer;
begin
write('Введите число 》 ');
read(a);
write('Последняя цифра числа 》 ',a mod 10)
end.
3.
program pifagor;
var
a:integer;
begin
write('Введите трехзначное число 》 ');
read(a);
write('Сумма цифр числа = ',a div 100+a div 10 mod 10+a mod 10);
end.
4.
A=50
B=20
A=40-30=10
10<20
C=2×10=20
5.
program kratnost;
var
x:integer;
begin
write('Введите X 》 ');
read(x);
if(x mod 5=0)
then
write('X Делится на 5')
else
write('X Не делится на 5')
end.
PascalABC.NET
begin
var a := ArrGen(10, i -> i in [0, 2, 6] ? 2 * (i + 1) + 10 :
(i - 7) * 3);
Writeln('массив');
var m := a.Println.Where(p -> p.IsEven).Average;
Write('sr=', m)
end.
begin
var a := ArrGen(10, i -> (i + 1) mod 3 = 0 ? -i : Sqr(i + 2));
Writeln('массив');
var s := a.Println.Sum;
Writeln('sr=', s);
a.Transform(p -> p < 0 ? s : p);
Writeln('новый массив');
a.Print
end.
begin
var a := ArrGen(15, i -> i < 7 ? i * (i + 6.1) + 5.1 : i - 4.7);
Writeln('массив');
foreach var k in a do
Write(k:7:2);
Writeln;
var p := 1.0;
for var i := 2 to 4 do
p *= a[i];
Write('p= ', p:0:3)
end.
Индексы в массивах PascalABC.NET идут не от единицы, а от нуля, как во всех современнных языках программирования. Поэтому исходные формулы пришлось немного преобразовать.
Примеры вывода не показаны, поскольку они точно совпадают с заданными.
#include <string.h>
#include <algorithm>
using namespace std;
int main() {
int n;
scanf("%d", &n);
bool a[n][n];
memset(a, true, sizeof(a));
int m;
scanf("%d", &m);
for (int k = 0; k < m; ++k) {
int x, y, aa;
scanf("%d%d%d", &x, &y, &aa);
for (int i = x; i < min(x + aa, n + 1); ++i) {
for (int j = y; j < min(y + aa, n + 1); ++j) {
a[i][j] = false;
}
}
}
int cnt = 0;
for (int i = 0; i < n; i++) {
for (int j = 0; j < n; j++) {
if (a[i][j]) {
cnt++;
}
}
}
printf("%d", cnt);
return 0;
}