CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
Используем расширенное представление числа
Ответ: основание системы счисления равно 6.
В переменной s1 подсчитывается количество элементов массива A, кратных 3. Таких элементов 3 (6, 18, 12) ⇒ s1=3
Значением переменной s2 будет максимальный элемент массива, кратный 4. ⇒ s2 = max(16,20,44) = 44
В переменной s3 подсчитывается сумма элементов массива, кратных 6. ⇒ s3 = 6+18+12 = 36
В переменной s3 подсчитывается сумма элементов массива, оканчивающихся на (остаток при делении на 10 = 3). ⇒ s4 = 23+23 = 46
Var x,y,r:real;
begin
write('x, y: ');
readln(x,y);
write('R = ');
readln(r);
if x*x+y*y>r*r
then writeln('точка находится внутри круга')
else if x*x+y*y=r*r
then writeln('Точка находится на окружности')
else writeln('Точка находится вне круга');
end.
Пример:
x, y: 3 4
R = 5
Точка находится на окружности
Развитием производства, или по другому усовершенствование данной модели, для получения необходимых единиц идеала. Наверное так