Var sum, i: integer;
begin
i:=-5; sum:=0;
while i<=27 do begin
sum:=sum+i;
i:=i+4;
end;
writeln(sum);
end.
#include<stdio.h>
void main()
{<span>
int Number,Sum = 0;
</span><span> printf("Input Number: \n");
</span><span> scanf("%d",&Number);
</span><span> while(Number>0)
</span><span> {
</span><span> Temp = Number;
</span><span> Sum = Sum + (Temp%10);
</span><span> Number/=10;</span><span>
}</span><span>
printf("%d \n",Sum);
</span><span>}</span>
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:=a.IndexMin;
Writeln('Номер минимального элемента ',p+1,
', его значение ',a[p]);
p:=a.IndexMax;
Writeln('Номер максимального элемента ',p+1,
', его значение ',a[p]);
end.
<u>Пример</u>
40 4 40 46 45 -42 -27 30 40 -13
Номер минимального элемента 6, его значение -42
Номер максимального элемента 4, его значение 46