Программирование в vba. : массив сотоит из двадцати элементов. сколько элементов массива нужно сложить - id215260320220508 от DanielKanafiev 08.05.2022 00:59

Question

Информатика: Программирование в vba. : массив сотоит из двадцати элементов. сколько элементов массива нужно сложить (начиная с первого), чтобы сумма превысила число 100. вот моя программа: private sub commandbutton1_click() dim c(1 to 20) as integer dim i, n, s as integer for i = 1 to 20 c(i) = cells(i, 1) next i s = 0 n = 0 for i = 1 to 20 if s = 100 then s = s + c(i) and n = n + 1 next i cells(2, 3) = количество элементов массива, сумма которых превышает 100= & n end sub как результат выводит 0 (т.е. n

DanielKanafiev · Accepted Answer

1)
Program n1;
var n:integer;
begin
write('Введите 3-х значное число: ');
readln(n);
if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then
writeln('true')
else writeln('false');
end.
2)
Program n2;
var x,y: real;
begin
readln(x,y);
if(x=0) and (y=0) then writeln('точка в начале координат')
else if(x>0)and(y>0) then writeln('I четверть')
else if(x<0)and(y>0) then writeln('II четверть')
else if(x<0)and(y<0) then writeln('III четверть')
else if(x>0)and(y<0) then writeln('IV четверть')
else if(x=0)and(y<>0) then writeln('точка на оси OY')
else if(x<>0)and(y=0) then writeln('точка на оси OX');
end.

MOGZ ответил