Var i,a,day :integer; Dat: array[1..7] of integer;
begin
Dat[1]:=14;
Dat[2]:=10;
Dat[3]:=0;
Dat[4]:=15;
Dat[5]:=0;
Dat[6]:=15;
Dat[7]:=10;
day:=1;
a:=Dat[1];
for i:=2 to 7 do begin
a:=Dat[i];
day:=i;
write(day);
end;
end.
я не знаю как это решать. решите .
у наш час не можна обійтися без комп'ютера чи телефону. світ йде все далі й далі в велике майбутнє з новими технологіями. яких тільки видів комп'ютерів вже не існує. діти, дорослі та навіть люди похилого віку не можуть обійтися і дня без комп'ютера. робота, ігри, знайомства, хоббі, розвиток та ще багато іншого - все є там. моя родина теж користується комп'ютерами. моя мама використовує комп'ютер вдома, тому що вона робить журналістом. їй можна сидіти вдома та писати статті на теми які завгодно. мій тато часто їздить до відрядження, тому йому вигідніше використовувати ноутбук. він дуже практичний для далеких поїздок та роботи в любих умовах. також в мене є старша сестра, яка використовує Apple ipad 2 для роботи над дизайном артів різних компаній. я використовую комп'ютер та принтер для проектів для школи по різним предметам. такі як біологія, історія та правознавство. ці прилади нас дуже потрібні, але треба використовувати їх в значній мірі.