1)Алеша правильно ответил что сосуд изготовлен в 5 веке
2)Боря правильно ответил что сосуд финикийский
3)Гриша правильно сказал что сосуд не греческий
Ответ: Финикийский 5 век
Var
i,n,a:integer;
Begin
Writeln('Введите число');
Readln(n);
for i:= 1 to n do
a:=a+i;
Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.
Пойду по пути лени) У тебя в строке 12 условие
if ( i != 2 && j != 1 )
Как мы знаем, если используется && (логическое И), то мы выполняем тело условия в том случае, когда обе части выражения дадут 1 (или true). Так вот. Когда у тебя выполняется цикл по 3 строке. У тебя i = 2, а вот j меняется. Но т. к первая часть выражения i != 2 всегда дает 0 (или false) условие не выполняется не для кого)
На картинке все написано.
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит