Вот мишено расписание уроков на понедельник среду и пятницу

Вот тебе простой вариант ришение задачи (коментар=пояснение)

PascalВыделить код

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16  program prg;  uses crt;  var  rez,chislo,min,max:integer;  begin  Write('Enter number =  ');readln(chislo);                 //zanosim 1 chislo  max:=chislo;                                              //v max ta min  min:=chislo;                                              //chtobu potom mu soukb sravnivat s drugimi chislamu  while (chislo<>0) do                                      //zapuskaem zikl poka mu ne napishem 0  begin   if (chislo>max)then max:=chislo;                         //sravnivaem s max   if (chislo<min) then min:=chislo;                        //sravnivaem s min   readln(chislo);                                          //snova pihem chislo   end;   rez:=(max-min);                                          //nahodim raznizy   writeln('max(',max,') - min(',min,') = ',rez);           //otvet end.

Ей, жарық күн, нұрыңды шаш далама,

шаш нұрыңды қарттарға, жас балаға,

ызғар сіңген жеріме шуақ керек,

мұқтаж оған ауыл да, астана да.

Сәулеңменен себеле үміт демін,

жер бетінен жылыссын күдіктерім.

Адамдардың сатқындық, сұмдығынан

қалжыраған жерімді жібіт менің.

Күңгірттенбей, көтерсін шыңым басын,

қарттарымның ұзартқын ғұмыр жасын.

Қорқыныш пен үрей жер кеуделерде,

қу бәрін де — соңына бұрылмасын!

Кетсін тағы шарықтап алысқа үнім,

қонақтасын ырыс пен табыс күнім.

Ұл-қыздары көтерсін қол ұстасып

қазағымның елдік пен намыс туын.

Жарқырасын шуақ боп алғашқы үміт,

жүректерді жүрекпен жалғастырып.

Адамзатқа бірлік бер, тыныштық бер –

ынтымақтан туындар бар жақсылық!