enot1975
?>

Вячейках а1 в1 ис1 электронной таблицы хранятся числовые значения. в ячейку d1 занесите логическое выражение, принимающее значение истина только тогда, когда среди этих трех чисел есть хотя бы одна пара значений. например: 1; 3; 1

Информатика

Ответы

druzhbamagazin2457
Uses crt;   var a,max,x: integer;   begin           clrscr;           write('введите число: ');     readln(a);           max: =a mod 10;         while a> 0 do               begin          x: =a mod 10;           a: =a div 10;             if x> max then max: =x;     end;   writeln('максимальная цифра: ',max);   readln;   end.
RozaAsadullina

program zadacha;

const n = 10;

type mas=array[1..n] of integer;

var s,i,k,d: integer;

m: mas;

begin

s: =0;

k: =0;

readln(d);

for i: =1 to n do

read(m[i]);

for i: =1 to n do

if m[i]< d then begin

s: =s+m[i];

k: =k+1;

end;

writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);

end. (это решение для случая если вы вводите сразу весь массив чисел)

program zadacha;

const n = 10;

var s,i,k,d,m: integer;

begin

s: =0;

k: =0;

readln(d);

for i: =1 to n do begin

readln(m);

if (m < d) then begin

s: =s+m14;

k: =k+1;

end;

end;

writeln('сумма чисел < d = ',s,' колиество чисел < d = ',k);

end. (а это решение для того случая когда вы вводите элементы по одному )

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вячейках а1 в1 ис1 электронной таблицы хранятся числовые значения. в ячейку d1 занесите логическое выражение, принимающее значение истина только тогда, когда среди этих трех чисел есть хотя бы одна пара значений. например: 1; 3; 1
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

saint158
ИП-Сысоев1628
vetrov1
koxhulya61
osipovasalex5316
vladimirkirv
potap-ver20065158
stasletter
Minchenkova
horina12
garikman-flesh486
a60ikurgannikova
ltdfoliant62
kim-1971
olesyashazk5055