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

Решить по информатике с клавиатуры последовательно вводят целые числа и высчитывается их сумма если с клавиатуры вводят 0, то больше числа не вводят. найти сумму всех введеных чисел. надо начать так x-число (меняется) s-сумма до цикла s: =0

👇
Ответ:
ггвв
ггвв
11.06.2020

Program Summa;

Uses Crt;

var n,s:integer;

begin

     clrscr;

     write('Вводите числа конец ввода 0: ');

     s:=0; 

     repeat

        readln(n);    

 

       s:=s+n;

     until (n=0);

   writeln;

   writeln('Сумма чисел: ',s);

   readkey;

end.

 

 

 

 

 

 

 

4,6(18 оценок)
Открыть все ответы
Ответ:
mozg37
mozg37
11.06.2020

правильный с синтаксической точки зрения код:

ConsoleColor text = ConsoleColor.Red;  

string myProgrammName = "Крутая прога от меня!";

string s = "Чтобы она заработала, нужно дорого заплатить.";

int cost1 = 15000;

char currency = '$';  

Console.Title = myProgrammName;  

Console.WriteLine(s);

Console.ForegroundColor = text;

Console.Write(cost1);

Console.ResetColor();

Console.WriteLine(currency);

double cost = 15.5;

Console.WriteLine("...");

Console.ReadLine();

Console.Write("Ну или хотя бы ");

text = ConsoleColor.Green;

Console.ForegroundColor = text;

Console.WriteLine(cost);

объяснение ошибок по строкам:

1) неверное объявление переменной text

2) объявлена переменная целого типа, а значение присвоено как переменной строкового типа

3) не выбрано имя переменной и пропущена точка с запятой

4) объявлена переменная целого типа, а значение присвоено как переменной строкового типа

5) не определен тип переменной

6) будет выводить строку myProgrammName вместо значения переменной myProgrammName

7) будет выводить строку string вместо значения переменной.

8) нет ошибки

9) неверное имя переменной

10) нет ошибки

11) нет ошибки

12) неверный тип переменной

13)нет ошибки

14)нет ошибки

15)нет ошибки

16) пропущено ConsoleColor

17) нет ошибки

18) нет ошибки

4,8(95 оценок)
Ответ:
balashova1296
balashova1296
11.06.2020
Var
  i, n, s: longint;
  d, k: integer;

begin
  i := 3; k := 0;
  repeat
    s := 1;
    for d := 2 TO Trunc(sqrt(i)) do
    begin
      n := (i div d);
      if n * d = i then s := s + d + (i div d);
    end;
    if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
    if s = i then k := k + 1;
    i := i + 1
  until (k = 3);
  Writeln('Третье совершенное число равно ',s)
end.

Тестовое решение:
Третье совершенное число равно 496

const
  k=35; { k-е по порядку простое число }

var
  i,j,n,m:integer;

begin
  n:=1; i:=1;
  repeat
    j:=2;
    m:=round(sqrt(i));
    while (i mod j <>0) and (j<=m) do j:=j+1;
    if j>m then n:=n+1;
    i:=i+1
  until (n=k);
  Writeln(i-1)
end.

Тестовое решение:
137

var
  n, d1, d2, d3: integer;

begin
  Write('Введите трехзначное число ->');
  Readln(n);
  d1 := (n div 100);
  d2 := ((n mod 100) div 10);
  d3 := (n mod 10);
  if (d1 * d2 * d3 in [100..999]) then
    Writeln('Произведение цифр трехзначное')
  else Writeln('Произведение цифр не трехзначное')
end.

Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное

*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
% - операция остатка от целочисленного деления    
4,5(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ