<span>При работе в среде Windows часто используется термин «задача». Это понятие тесно связано с термином «приложение». Приложение становится задачей после его запуска. Приложение можно запустить двумя способами: либо непосредственно открыв файл запуска, либо открыв документ, созданный в этом приложении. Можно сказать, что задача - это работающее приложение, которое потребляет ресурсы системы или ждет своей очереди на них. Термин «задача» связан с механизмом управления ресурсами, а не с тем, работает с приложением пользователь или нет. О некоторых задачах пользователь может и не подозревать. Список задач можно получить, одновременно нажав клавиши <Ctrl><Alt><Del>. Приложения могут запускаться либо по инициативе пользователя, либо по инициативе Windows. Все задачи должны быть в той или иной форме отображены на экране.</span>
1) Петя и Вера учатся у П (победитель Программирования), а Игорь и Маша только заинтересовались языком Си++, значит П - Олег. 2) Петя, Маша и Вера не И (победитель Истории), т.к. или учатся с ним в одной школе или живут в одном доме. Значит И - Игорь. 3) победитель Литературы (Л) знаком с Петей и Машей, значит он не они, а Вера. 4) Петя не любит английский, значит он - Р (победитель по Русскому яз.). 5. И остаётся Маша - А ( победитель по Англ.яз.). Значит правильные ответы: 1) Игорь, 2) Олег, 3) Вера, 4) Петя, 5) Маша.
1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
Для сего надо лишь умножить последнюю цифру на 3 и выделить кол-во единиц же
var
a: <em>integer</em>;
begin
readln(a);
writeln((a <em>mod </em>10 <em>*</em> 3) <em>mod</em>10);
<span>end.</span>
//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
var n := 2003;
var m := 2016;
var a := MatrGen(n, m, (i, j)-> i + 1 + n * j);
var b := MatrGen(n, m, (i, j)-> j + 1 + m * i);
var k := 0;
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
if a[i, j] = b[i, j] then begin
k += 1;
Println(i + 1, j + 1, a[i, j]);
end;
// a.Println();
// writeln;
// b.Println();
writeln(k);
end.
Вывод
1 1 1
156 155 310620
311 309 621239
466 463 931858
621 617 1242477
776 771 1553096
931 925 1863715
1086 1079 2174334
1241 1233 2484953
1396 1387 2795572
1551 1541 3106191
1706 1695 3416810
1861 1849 3727429
2016 2003 4038048
14
Ответ 14