Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
320 * 1024 = 327680 мб
327680 / 700 = ,=> нужно 469 дисков. 469 * 15грамм = 7035 гр = 7кг 35 гр
сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. потом переправить волка, ну а потом уже козу.
d: /лето/фото/125.jpg
d: /документы/экзамен/информатика
Популярные вопросы