Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b: integer;
is7: boolean;
begin
readln(a);
b: =0;
is7: =false;
while a < > 0 do
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.
таблица умножения
программа телепередач
телефонный справочник
прогноз погоды
меню в столовой
февраль зимний месяц
май весенний месяц
август летний месяц
сентябрь осенний месяц
var x1,x2,x3,s1,s2,s3: integer;
function sumofnumber(num: integer): integer;
var s: string;
i: integer;
s: =str(num);
for i: = 1 to length(s) do
sumofnumber: = sumofnumber+int(s[i]);
read(x1,x2,x3);
s1: =sumofnumber(x1);
s2: =sumofnumber(x2);
s3: =sumofnumber(x3);
if s1> s2 and s1> s3 then writeln(x1);
if s2> s1 and s2> s3 then writeln(x2);
if s3> s2 and s3> s1 then writeln(x3);
в правильности написания функции типов не уверенна.
Популярные вопросы