Помогите :) Посчитать сколько существует двузначных чисел, сумма цифр которых не превышает 15?

Знания

Информатика

1 ответ:

olga35asd3 года назад

0 0

5 чисел ето 14,13,12,11,10.

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

Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. uses crt; var mas, A: array[1..10] of real;

Olegbik [1]

В чем же дело, идем в Паскаль, набираем программу, запускаем, сотрим на результат. Программа выдает значение первого элемента массива A[1]:=(mas[9]-mas[1])*mas[5];

0 0

4 года назад

Составить блок-схему произведения чисел от 20 до 50 кратных 5

Глеб Копейкин

Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.

0 0

4 года назад

Помогите срочно! много баллов!

Ghost78

1 бесконечнось
2 60
"""""""""""""""""""""""""

0 0

4 года назад

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

Придумайте задачу, условие которой содержит слова " если..., то...".

vanik010203 [7]

Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)

0 0

4 года назад

Максимум из 3-х чиселДаны 3 целых различных числа. Нужно определить, которое из них самое большое.Input Со стандартного устройст

archy05 [56]

Написано на Pascal:

Program Max;
Var a, b, c: Integer;
Begin
Read(a);
Read(b);
Read(c);
If (abs(a) >10000) Or (abs(b) > 10000) Or (abs(c) > 10000) Then
WriteLn('Error!')
Else
Begin
If(a>b) Then
Begin
If(a > c) Then
WriteLn('First number is maximal')
Else
WriteLn('Third number is maximal')
End
Else If(b > c) Then
WriteLn('Second number is maximal')
Else
WriteLn('Third number is maximal');
End;
ReadLn;
End.

0 0

4 года назад