Все категории

4 года назад

Ввести целое число и определить, верно ли, что в нём ровно одна цифра 9

Знания

Информатика

1 ответ:

dunk1254 года назад

0 0

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.

Примеры
35423
False

13290192
False

132903
True

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

Из банка на выплату зарплаты привезли а рублей хватит ли этой суммы если на предприятии n работников их средняя зарплата s рубле

xomenator

program raf105;

var a,n,s,k:integer;

begin

write('Сколько рублей привезли: ');

readln(a);

write('Сколько на предприятии работников: ');

readln(n);

write('Средняя зарплата: ');

readln(s);

write('Остаток в кассе: ');

readln(k);

writeln;

if s <= ((a+k) div n)

then writeln('Этой суммы хватит')

else writeln('Этой суммы не хватит');

end.

0 0

4 года назад

Запишите элементы действия применённые в форматирование А1-А7 и Е2-Е7,С7-Е7

Msdonald

Автозаполнение порядкого номера,автозаполнение формул.

0 0

3 года назад

составьте блок-схему алготирма и программу вычисления площади треугольника по основанию и высоте.

бариятка

var

a,h,s: integer;

begin

writeln('введите основание ');

readln(a);

writeln('введите высоту треугольника') ;

readln(h);

S:=(1/2)*(a*h);

writeln('площадь равна ',s);

end.

0 0

4 года назад

Запиши число 14471 в развёрнутом виде, начиная со старшего разряда

Елена Красавина [119]

10000

4000

400

ответ на данный вопрос

0 0

4 года назад

Почему можно рассматривать компьютерную презентацию как важное коммуникативное средство

onzagay [4]

Потому что ее употребляют в различных коммуникациях.

0 0

4 года назад