sokolowskayaa
?>

2. вычислить значение аргумента если x> 0, x: =sqr(x), в противном случае x: =(12+x) /5.​

Информатика

Ответы

websorokin
Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.
marat7
1 вариант через строку

var 
  n,a,k,sum,i,j: integer; 
  s: string; 
begin
  sum:=0; 
  write ('Введите количество чисел: ');
  readln (n);
  for i:=1 to n do begin 
    write ('Введите число: ');
    readln (a);
    Str(a,s);
    k:=0;
    for j:=1 to length(s) do 
      if s[j]='5' then k:=k+1;
    if k=2 then sum:=sum+a;
  end;  
  writeln ('Sum = ',sum);
end.

2 вариант через div и mod

var 
  n,a,x,k,sum,i: integer; 
begin
  sum:=0; 
  write ('Введите количество чисел: ');
  readln (n);
  for i:=1 to n do begin 
    write ('Введите число: ');
    readln (a);
    x:=abs(a);
    k:=0;
    while x>0 do begin
      if x mod 10 =5 then k:=k+1;
      x:=x div 10;
    end;
    if k=2 then sum:=sum+a;
  end;  
  writeln ('Sum = ',sum);
end.

пример результата:

Введите количество чисел: 3
Введите число: 550001
Введите число: -550000
Введите число: 123456
Sum = 1

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

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

2. вычислить значение аргумента если x> 0, x: =sqr(x), в противном случае x: =(12+x) /5.​
Ваше имя (никнейм)*
Email*
Комментарий*

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

skryabinamaria
besson89
Сергеевич1907
Староческуль-Станиславовна
yakovlevasvetlanalvovna209
purbuevat56524
yrgenson2011801
Кириллов57
Olybetezina1973
forwandy42
Borisovna24
marinadetsad
denisrogachv
Алёна Геннадьевна98
artem032100