===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var x := ReadReal('x =');
var s := Cos(x);
for var i := 1 to n do
s += Cos(x + i);
s.Println
end.
компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель
1)
<span>n = int(input('n ='))
i = <span>1
</span>while i <= n<span>:
</span>----i = i + <span>1
</span></span>----<span>if n \% i == 0<span>:
</span></span>--------<span>print(i,end=',')
2)
</span>print("Введите x:")
x = int(input())
print("Введите y:")
y = int(input())
s = x
k = 1
while s <= y:
k = k+1
s = 1.1*s
print("k = ", k, end = '')
const m = 100;
<span>var i,n,s,mx: integer;
</span><span> a: array[1..m] of integer;
</span><span>begin
</span><span> write('размер массива: '); readln(n);
</span><span> randomize;
</span><span> s:=0; mx:= -12;
</span><span> writeln('исходный массив: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-11,34);
</span><span> write(a[i],' ');
</span><span> if (a[i]<0) and (a[i]>mx) then mx:=a[i];
</span><span> if ((a[i]>0) and (a[i] mod 2 = 1)) then s:=s+a[i];
</span><span> end;
</span><span> writeln;
</span><span> writeln('максимальный среди отрицательных: ',mx);
</span><span> writeln('сумма нечетных положительных: ',s);
</span><span>end.
</span>размер массива: 15
<span>исходный массив:
</span><span>17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21
</span><span>максимальный среди отрицательных: -10
</span><span>сумма нечетных положительных: 141
</span><span>
</span>
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.