Среди двузначных чисел найти те, сумма цифр которых равна 10 (pascal).

Знания

Информатика

1 ответ:

Bunss2 [50]4 года назад

0 0

Program;
var a,i:integer;
Begin
for i:=10 to 99 do
read(a);
if (a mod 10+ a div 10=10) then
write(a);
End.

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

Составьте программу,которая проверяет,является ли человек заданного возраста школьником,если возраст школьника- от 6 до 17лет,и

MrKot1 [96]

Var A:integer;
Begin
WriteLn('Введи возраст человека');
ReadLn(A);
if (A>6)and(A<17) then Write('Является школьником')
else WriteLn('Не является школьником')
End.

0 0

4 года назад

(N - мощность алфавита; i - информ. вес одного символа; и т.д.) А как в информатике обозначается количество страниц?

Тёмный маг

Никак не обозначается.
Кол-во символов = кол-во страниц * кол-во строк * кол-во символов в строке
Найдя $i$ из формулы $N= 2^{i}$ мы можем найти общий объем информации по формуле $I=K*i$ , где $K$ , найденное нами кол-во символов.
Возможно вы имели в виду переменную $K$

0 0

1 год назад

Для шифровки букв используется двухзначные числа.Известно что каждое из слов: марс,пирс барс и морс кодируетсь одной из последов

Тома [45]

Марс - 80 05 90 93
морс - 80 84 90 93
барс - 10 05 90 93
пирс - 87 62 90 93

0 0

4 года назад

Коллеги помогите !!!!!!!!!!Впиши в таблицу имена и свойства объектов. Учёный Паскаль Талантливый.---------- Шишкин -------------

пыстина елена вла...

Если я правильно понял задание, то примерно так:
Художник Шишкин пейзажист.
Композитор Моцарт классик.
Озеро Байкал большое.
Город Лондон столица.

0 0

4 года назад