4 года назад

Сколько существует чисел<100 цифры которых идут в возрастающем порядке

Знания

Информатика

1 ответ:

Aleksawka [58]4 года назад

0 0

12, 23, 34, 45, 56, 67, 78, 89

Ответ: 8.

Читайте также

Разработать программу, реализующую следующий функционал: 1.1. Программа запрашивает у пользователя число от 1 до 10 (n). 1.2. Пр

Ольга БТ [7]

Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.

0 0

4 года назад

1. В меню текстового редактора не входит:А) файл В) формат С) рисунок D) вид2. В меню текстового редактора не входит:А) файл В)

Лида П

1. с)

2.d)

3.c)

Объяснение:

0 0

4 года назад

Прочитать ещё 2 ответа

Как найти сумму элементов массива по диагонали в программе паскаль?

Karamel

Надо сложить все элементы массива в цикле, тогда получишь искомое)

0 0

4 года назад

Дано число К. Написать программу вывода на экран квадрата этого числа, если оно не отрицательно.

Тамара 83 [307]

На c++
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int k;
cin >> k;
if (k >= 0)
{
k *= k;
cout << k << endl;
}
else
{
cout << k << "<0" << endl;
}
_getch();
return 0;}

0 0

4 года назад

Определите среднее значение всех элементов последовательности, завершающейся числом 0. Использовать массивы в данной задаче нель

metalurg

А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.

var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.

0 0

4 года назад