var a,b,i,j,p,o: integer;
z:real;
m:array[0..31,0..31] of integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
begin
z:=random;
b:=random(31);
if z<0.5 then m[i,j]:=b;
if z>0.5 then m[i,j]:=-b;
end;
for i:=1 to 5 do
for j:=1 to 5 do
begin
if m[i,j]>0 then p:=p+m[i,j];
if m[i,j]<0 then o:=o+m[i,j];
end;
write(p,' ',o);
end.
мда. подумать над задачкой пришлось немного) но вот результат)
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
ifstream in;
ofstream out;
in.open("input.txt");
out.open("output.txt");
int n, m;
in >> n;
m = (n-1) / 10 + 1;
out << m;
in.close();
out.close();
return 0;
}
Пример:
Файл input.txt
203
Файл output.txt
21
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var eps:=1e-3; // точность
var (b,r):=ReadReal2('Введите сторону треугольника и радиус:');
if Abs(r-b*Sqrt(3)/6)<=eps then Writeln('Окружность можно вписать')
else Writeln('Окружность вписать нельзя')
end.
1) - это те действия, которые объект может выполнить сам, или же, посредством другого объекта.
2) - это те же действия, но, которые выполняются над самим объектом.
3) - это совокупность всех его свойств и значений этих свойств.
Не будут. Потому что РИСОВАНИЕ в библиотех графики Паскаля.