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

Я только программу сделал

а таблицу не помню как заполнять

👇
Ответ:
Qaswe1
Qaswe1
23.06.2022

Смотри картинку

Объяснение:

p = 23

s = 0

цикл выполняется пока р > 0

Действия в цикле:

s = s + p mod 10

p = p div 10

p = 23     s = 0     23 > 0 (да)

выполняем цикл

s = s + p mod 10 = 0 + 23 mod 10 = 0 + 3 = 3

p = p div 10 = 23 div 10 = 2

p = 2     s = 3     2 > 0 (да)

выполняем цикл

s = s + p mod 10 = 3 + 2 mod 10 = 3 + 2 = 5

p = p div 10 = 2 div 10 = 0

p = 0     s = 5     0 > 0 (нет)

не выполняем цикл

div - целочисленное деление

mod - остаток от целочисленного деления

2 / 2 = 1 целое + 0 остаток

2 div 2 = 1

2 mod 2 = 0

3 / 2 = 1 целое + 1 остаток

2 div 2 = 1

2 mod 2 = 1


Я только программу сделал а таблицу не помню как заполнять
4,5(93 оценок)
Открыть все ответы
Ответ:
glazyrinasasha
glazyrinasasha
23.06.2022
var
  x: string;
  arr: array of char;

begin
  readln(x);
  arr := x.Split(' ')[1].ToCharArray();
  System.Array.Reverse(arr);
  writeln(length(arr), '   ', new string(arr));
end.

var
  c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
  r, q, s: real;
  i, a, b: byte;
  
begin
  q := 1;
  i := 1;
  r := c.Min();
  while (i < length(c)) do
  begin
    q *= c[i];
    i += 2;
  end;
  readln(a, b);
  s := b - a - 1;
  writeln('T = ', (R / Q + 1) + S);
end.

const
  k = 5;
  p = 5;

var
  f: array [1..k, 1..p] of string;
  o: real;
  df: byte;

begin
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
    begin
      f[i, j] := random(10, 99).ToString();
      write(f[i, j]:3);
      if (j >= 7 - i) then
      begin
        o += integer.Parse(f[i, j]);
        df += 1;
        f[i, j] := '██';
      end;
    end;
    writeln();
  end;
  writeln();
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
      write(f[i, j]:3);
    writeln();
  end;
  writeln(o / df);
end.
4,6(20 оценок)
Ответ:
glebshestopal
glebshestopal
23.06.2022

#include <iostream>

#include<conio.h>

#include "windows.h"

using namespace std;

int main()

{

float sum;

int n,count;

cout << "введите длину массива ";

cin >> n;

sum = 0;

count = 0;

float *mass = new float[n];

cout << "проинициализируйте массив" << endl;

for (int i = 0; i < n; i++)

{

 cin >> mass[i];

}

for (int i = 0; i < n; i++)

{

 if (mass[i] > 0)

 {

  sum += mass[i];

  count++;

 }

}

cout <<"среднее арифметическое положительных элементов массива = " << sum / count;

delete[] mass;

return 0;

}

4,8(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ