Ответ:
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше баллов дать, все таки это самое сложное из заданий Т-Т...
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>
1)1100011 2
2)22 10
3)10110111 2
4)127 10
5)1000000000 2
Мы должны умножить сторону равную 15 см на сторону 20 см,получим площадь.
После чего мы находим периметр:
Так как это четырёхугольник,то противоположные стороны равны,следовательно 20 +20+15+15 =70 см
В итоге P = 70см
S = 300 см 2