var a,b: integer;
is7: boolean;
begin
readln(a);
b: =0;
is7: =false;
while a < > 0 do
begin
b: =b+a mod 10;
if a mod 10 = 7 then
is7: =true;
a: =a div 10;
end;
wrtieln('сумма цифр: ', b);
write('цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Написать программку на c/c++/pascal/basic в сером королевстве запрещены все цвета. жители королевства могут использовать только варианты серого цвета от черного до белого. если рассмотреть цвет с использованием модели rgb, где каждый из трех каналов принимает значение от 0 до 255, то в сером королевстве разрешены только цвета, у которых разница между значениями в любой паре каналов не превышает 25.напишите программу, которая определяет для цвета, заданного в модели rgb, является ли он разрешенным в сером королевстве.первая строка ввода содержит три целых числа в диапазоне от 0 до 255 — значения в каналах r, g и b.вывести сообщение allowed, если цвет является разрешенным в сером королевстве, иначе выведите сообщение forbidden. пример ввода 1: 120 145 135 пример вывода 1: allowed пример ввода 2: 100 140 135 пример вывода 2: forbidden