Ответ:
7.
Объяснение:
Программа находит, является ли хотя бы одно число из 2 большим 10. Заметим, что такая пара только одна
Var
a: array [1..10] of real;
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
writeln('Введите число');
readln(a[i]); //Вводим i-ый элемент массива с клавиатуры
if a[i] > 0 then s:= s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
end;
writeln('Сумма положительных элементов массива: ', s)
end.
Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение:
0 в 2сс = 0.
Теперь переводим 0,125.
0,125 * 2 = 0,25 (0) - целое число при умножении на 2.
0,25 * 2 = 0,5 (0)
0,5 * 2 = 1,0 (1)
Ответ: 0,001(2)
Справочная система запускается с помощью кнопки F1.