Прикладное по для программирования
{
Free Pascal Compiler version 2.6.4+dfsg-8 [2015/08/14] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
}
program X_and_Y;
Var count, n, sum : integer;
begin
writeln('Введите 5 чисел:');
count:=1;
sum:=0;
while count<=5 dobegin
readln(n);
sum := sum+n;
inc(count);
end;
writeln('Сумма равна ', sum);
sum := 0;
for count:=1 to 5 dobegin
readln(n);
inc(sum, n);
end;
writeln('Сумма равна ', sum);
end.
Const m = 3;
n = 3;
var a: array[1..m, 1..n] of integer;
i,j,max3:integer;
begin
max3:=-MaxInt;
for i:=1 to m do begin
for j:=1 to n do begin
write('A[',i,',',j,']= ');
readln (a[i,j]);
if (a[i,j] mod 3 = 0)and (max3<a[i,j]) then
max3:=a[i,j];
end;
end;
writeln('Максимальное кратное трем ',max3);
end.
Тестовое решение:
A[1,1]= -15
A[1,2]= 9
A[1,3]= 3
A[2,1]= 7
A[2,2]= -21
A[2,3]= 21
A[3,1]= 15
A[3,2]= -9
A[3,3]= 9
Максимальное кратное трем 21
Пишу на JavaScript:
var summ = 0;
var i;
for (i = 0; i < 20; i++) {
summ += i;
}
document.write(summ + "<br>");
var medium = summ / 2;
document.write(medium);
Поясниваю:
идет цикл от 0 до 20 (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19)
а в переменную summ через цикл с переменной i мы добавляем все ети числа:)
ps
если хочеш чтобы и число 20 засчиталося сделай так:
i <= 20:)
отже виводиться сума і відразу середнє
<span>Кнопка пуск. Enter и backspace это все таки кнопки на клавиатуре , а не операционной системе.</span>