< >

решите пожалуйста задачу для Pascal ABC 8класс

Приложения:

Ответы

Ответ дал: elfxea
0
Можно сделать по-другому (короче), просто функцию забыл :D
var x:byte;
begin
x:=51;
Repeat x:=x-2;
write(' ',x);
Until x<=1;
end.
Похожие вопросы
Русский язык
2 года назад
Как проверить буквы(они выделены заглавными)в словах глАгол,местОимение,нАречие. В комментариях писать только проверочное слово или правило и корень.
Русский язык
2 года назад
Коля в домашней работе должен был выписать слова которые оканчиваются на глухой согласный звук. Какие слова выписал Коля А.СОН,б.мороз ,в.ТРАТОР.Г. гриб 1 б и г 2 а б и г 3 в и г 4 б в и г
Английский язык
6 лет назад
Complete the dialogues with the correct from of the verbs in brackets СРОЧНО ПОМОЖІТЬ ДАМ 100 БАЛІВ!!!!
Қазақ тiлi
6 лет назад
3. Күрделі сөздерді қолдана отырып, өздерін тұратын ауылды немесе қаланы суреттеп жазыңдар.(Семей)​
Математика
9 лет назад
frac{7-y}{6}= frac{5}{9}
Литература
9 лет назад
шли два солдата и толька они зашли за угол,увидели три автомата. каждый взял по одному,и при этом каждый автомат нашел хозяина.как?
Алгебра
9 лет назад
8Х+10=0 ОТВЕТ НА УРАВНЕНИЕ
Алгебра
9 лет назад
Найдите промежутки возрастания и убыввния функции f (x)=2x^3-3x^2-12x