Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Дату какую-то))
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.
-,андрей!
-,паша!
-как у тебя дела?
-у меня всё хорошо,а ты как?
-у меня всё отлично. что спросил
-не за что.пойдёшь сегодня гулять?
-да,конечно.а во сколько?
-в 5 часов.
-хорошо.ладно пока.
пока.встретимся на улице
-хорошо.
Популярные вопросы