1. Как начать тест в системе тестирования MyTestX? 2. Как выбрать другой тест в системе тестирования MyTestX?
3. Что появиться в конце тестирования в системе тестирования
MyTestX?
4. Сколько вариантов ответа может предложить система тестирования MyTestX?
5. Как происходит процесс тестирования (привести подробное описание)?

1)первый ключ сразу подошел к двери.2)второй ключ подошел т.е проверили 2.3)третий подошел т.е проверили 3ключа.4)четвертый подошел т.е проверили 4 ключа.

напиши само ,я

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.