var
N: integer;
a: array [1..1000] of integer;
sum,i,k: integer;
begin
write('Введите размерность массива: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln;
sum:=0;
for i:=1 to N do //Условие и проверка отрицательности и делимости элементов
if (a[i]<0) and (i mod 3 = 0) then
sum:=sum+sqr(a[i]);
writeln('Сумма квадратов значений элементов с условием равна: ', sum);
k:=0;
for i:=1 to N do //Условие и проверка положительности элементов
if (a[i]>0) and (a[i]<>sum) then
inc(k); //Сумма положительных элементов
writeln('Количество положительных элементов: ', k);
end.
Объяснение:
ее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные данее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные данее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.d
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные данее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные дан
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
end.
p.s.
a-трехзначное число
e-сумма чисел
x, y и z - первое, второе и третье число соответственно.