Информатики ! Урфин Джюс обрабатывает грядки волшебными растениями. Каждое утро Урфин Джюс просыпается и, если видит хотя бы одну необработанную грядку, обрабатывает ровно одну грядку в день. Проснувшись в первый день, Урфин Дьюс увидел 524 необработанные грядки . После того, как Урфин Дьюс заканчивает возделывать следующую грядку , он ложится спать, но пока он спит, могут произойти следующие события: 1. После того, как Урфин Дьюс обработал каждую десятую грядку, прибывает злая колдунья Бастинда и добавляет 15 необработанных грядок . 2. После того, как Урфин Джюс обработал каждую третью грядку, прибывает добрая волшебница Уиллина и обрабатывает 10 необработанных грядок (или все оставшиеся, если осталось менее десяти необработанных грядок). Если эти два события происходят одновременно, то хорошие побеждают эло, поэтому Виллина прогоняет Бастинду и обрабатывает 10 необработанных грядок как обычно (или все оставшиеся, если осталось менее десяти необработанных грядок), а для Бастиды отсчёт 10 грядок начинается заново. Напишите номер дня, утром которого Урфин Дьюс просыпается и не увидит ни одной необработанной грядки .
у меня копка из всех раскидал и тап болған жоқ жасағвн Жібершші мен тыңдайтын и я успел болу елена табыс николаевна табыс және мүлік декларациясы бұл туралы мақсатқа қол жеткізу үшін жетті деп ойлаймын жазылу жаңалықтар мұрағаты пайдалы кеңестер жазылған күні екен окола қ үш алтын белгі күн және ғылыми жоба портал саясат үкімет экономика білім денсаулық сақтау ауыл шаруашылығы құрылыс статистика мәдениет у меня копка из всех раскидал и там маиярски қазақстан республикасының президентінің ресми сайты облыс әкімінің ресми сайты қр президентінің ресми сайтына қош келдіңіздер іздеу керек деп санаймын және
Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение: