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

Что делает программа? program summ; var a, b, c: integer; begin writeln ((перевёрнутая запятая, не знаю как написать : d, буду обозначать её букой j) введите 1-вое число: j ); readln (a); writeln (jвведите 2-рое число: j ); readln (b); c: a+b; writeln ( результат = j,c); end.

👇
Ответ:
Викарайс
Викарайс
09.09.2020
Программа ищет сумму двух чисел
4,8(49 оценок)
Ответ:
irinawinchester666
irinawinchester666
09.09.2020
Данная программа выдаёт ошибку. Давайте для начала её отладим
Program Summ;
Var a, b, c: integer;
Begin
      Writeln ('введите первое число: ' );  
       Readln (a);
       Writeln ('Введите 2-рое число:');
       Readln (b);
       c:a+b;                                 {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так c:=a+b;  }
       writeln ( 'Результат =' ,c);
End.

ну а теперь можно её и разобрать
Var a, b, c: integer;                              Объявляем переменные
Begin
  Writeln ('введите первое число: ' );    выводим на экран предложение ввести число
  Readln (a);                                        присваиваем переменной А введённое число
  Writeln ('Введите 2-рое число:');        выводим на экран предложение ввести число
  Readln (b);                                        присваиваем переменной В введённое число
  c:=a+b;                                         Присваиваем переменной С сумму чисел А и В
writeln ( 'Результат =' ,c);                    Выводим результат
End.
4,5(35 оценок)
Открыть все ответы
Ответ:
masha28122812
masha28122812
09.09.2020
1)
var i,a:Integer;
begin
a:= 1;
while a<>0 do
begin
Read(a);
i+=a;
end;
WriteLn(i=10);
end.

2) Можно через double. Но после 170! уже бесконечность.
var n:Integer;
var b:double;
begin
b:=1;
Read(n);
for var i:= 1 to n do
b*=i;
WriteLn('factorial '+n+' = '+b);
end.

3) Работает как и с числами так и со строками.
var arr:array of char;
var a:String;
var first,last:Integer;
begin
Read(a);
arr:= a.ToCharArray();
for var i:= 0 to arr.Length-1 do
begin
first:=Pos(arr[i], a);
last:=Pos(arr[i], a,first+1);
if (first>0) and (last > 0) and (first<>last) then
begin
first:=99;
break;
end;
end;
if first = 99 then
WriteLn('Содержит. Это число '+arr[last-1])
else
WriteLn('Несодержит.');
end.
4,5(62 оценок)
Ответ:
никто271
никто271
09.09.2020
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

function IsGood(n:integer):boolean;
begin
  n:=Abs(n);
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Result:=s=10
end;

begin
  var k:=ReadSeqIntegerWhile(t->t<>0).Where(t->IsGood(t)).Count;
  Writeln(k,' чисел с суммой цифр, равной 10')
end.

Пример
-5234 20043 52340 10531 -64 31502 0
2 чисел с суммой цифр, равной 10

№2

begin
  var n:=ReadInteger('Введите число:');
  if n<=1 then Writeln(n,'!=',1)
  else Writeln(n,'!=',1.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Примеры
Введите число: 5
5!=120

Введите число: 20
20!=2432902008176640000

Введите число: 100
100!=93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

№3

begin
  if ReadInteger('Введите число:').ToString.GroupBy(t->t).
      Select(t->(t.Key,t.Count)).Any(t->t[1]>1)
  then Writeln('Число содержит по крайней мере две одинаковые цифры')
  else Writeln('Введенное число не содержит одинаковых цифр')
end.

Примеры
Введите число: 12345670
Введенное число не содержит одинаковых цифр

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