М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
usmanazamatov95
usmanazamatov95
14.08.2021 20:23 •  Информатика

3-ТОҚСАН БОЙЫНША ЖИЫНТЫҚ БАҒАЛАУҒА АРНАЛҒАН ТАПСЫРМАЛАР «Программалар ды құрудың кіріктірілген орталары» бөлімі бойынша жиынтық бағалау Тапсырма

Берілген бағдарламалық қамтамасыз ету түрлері мен анықтамаларын сәйкестендіріңіз.

Бағдарламалық

Анықтама

қамсыздандыру

Арнайы бір саланың есебін шешуге арналған

Жүйелік

қосымшаларды құруға арналған бағдарламалар

Компьютердің құрылғылары мен бағдарламалар

арасында байланыс орнататын бағдарламалар

Қолданбалы

Қолданушының бір мақсатта жұмыс жасауына

арналған бағдарламалар

«Программалау жүйелері» ұғымын анықтайтын тұжырымдарды «иә» немесе «жоқ» деп белгілеңіз.

Қолданбалы есептерді шешеді

Бағдарламашылар жұмыс жасайды

Арнайы бір есепті шешуге арналған бағдарлама

Көмекші жүйелік бағдарламалар

Қайталау параметрін бағдарламалау тілінде жазылу синтаксисін толықтырыңыз. for to do
1..10 дейінгі оң сандар тізбегі берілген. Программаны өңдеудің кіріктірілген ортасында сандардың қосындысын есептейтін бағдарлама алгоритмін жазыңыз.

👇
Открыть все ответы
Ответ:
lordd007
lordd007
14.08.2021
Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.
4,4(64 оценок)
Ответ:
61551
61551
14.08.2021
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
4,7(10 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ