Ввели 2 числа найдите меньшее из них и определите,делится ли оно на цело на 5?

167

330

Посмотреть ответы 2

Ответы на вопрос:

Лчший

Информатика

4,6(49 оценок)

запишу на обычном языке, паскаль не помню уже.

а - первое число. б - второе число.

если а больше б и б div 5=0 тогда выводится на экран (' б наименьшее число и нацело делится на 5')

если б больше а и а div 5=0 тогда выводится на экран (' а наименьшее число и нацело делится на 5')

точно не помню как выглядит это в паскале, но что-то типо такого

if a< b and a div 5=0 then writeln ('а наименьшее число и нацело делится на 5');

if b< a and b div 5=0 then writeln ('б наименьшее число и нацело делится на 5');

countrestrikegl

Информатика

4,7(81 оценок)

Const m=20; var i,j,s,n: integer; a: array[1..m,1..m] of integer; begin write('n = '); readln(n); randomize; { заполнение массива и вывод на экран} s: =0; for i: =1 to n do for j: =1 to n do begin a[i,j]: =random(58); write(a[i,j]: 4,' '); if j=n then writeln; end; { сумма элементов под главной диаг. } s: =0; for i: =2 to n do for j: =1 to i-1 do s: =s+a[i,j]; writeln('средне арифметическое: ',s/(n*(n-1)/2): 5: 3); end.