Які формати даних потрібно встановити для таких даних: зріст учня, дата народження учня, прізвище учня, домашній номер телефону учня, вартість квитка на потяг, відсоток хлопців від загальної
кількості учнів класу?​

если ты хоть немного разбираешься в пк, то читай, иначе относи к мастеру.

проблема имеет несколько источников:

1) оперативная память, её контакты могли окислиться и из-за этого она не даёт работать компьютеру. попробуй достать её( перед этим обязательно вытащи провод из источника ! )

и осмотреть контакты, если это так и там имеется что-то подгоревшее или не такого цвета как все, то пройдись ластиком, но не сильно.

2) сбой в работе bios, есть круглая батарейка в материнской плате, осторожно вытащи её на пять минут и вставь обратно. попробуй перезагрузить конденсаторы. для этого в компьютере без питания нажми кнопку включения, потом попробуй включить компьютер.

3) сгорела видеокарта или материнская плата.

самый печальный исход, замена комплектующих.

(я написал далеко не все, но это самые распространённые источники проблемы)

1)
program cgt;
var a:array[1..100,1..100]of integer;
s,n,m,i,j:integer;
begin
read(n,m);
s:=0;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
begin
for j:=1 to m do
if(i mod 2=1)then s:=s+a[i,j];
end;
writeln(s);
end.
2)
program cgt;
var a:array[1..100,1..100]of integer;
n,m,i,j:integer;
s,p:real;
begin
read(n,m);
s:=0;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
begin
p:=1;
if(i mod 2=0)then begin
for j:=1 to m do
begin
p:=p*(sin(a[i,j]*pi/180))/(cos(a[i,j]*pi/180));
end;
s:=s+p;
end;
end;
writeln(s);
end.
3)

program cgt;
var a:array[1..100,1..100]of integer;
n,m,i,j,max,x,y:integer;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
max:=a[1,1];
for i:=1 to n do
if(i mod 2=1)then begin
for j:=1 to m do
if(a[i,j]>=max)then  begin
max:=a[i,j];
x:=i;
y:=j;
end;
end;
writeln(x,' ',y);
end.