На паскале 8 класс 1) дано число а, верно ли утверждение, что сумма его цифр больше некого числа к, а само число а - четное. 2) дано число а, верно ли утверждение, что первая его цифра равна х, а последняя у, а также само число не четное

139

151

Посмотреть ответы 2

Ответы на вопрос:

marijamz2016

Информатика

4,5(51 оценок)

//pascalabc.net//версия 3.3, сборка 1634 (14.02.2018) 1)begin var a: =readstring('a-> '); println('сумма больше ',a.joinintostring(' ').tointegers.sum> readinteger('k-> ')? 'true': 'false'); println('a четное ',a.tointeger.iseven); end. пример: a-> 123456 k-> 22 сумма больше false a четное true 2) begin var a: =readinteger('a-> '); println('a нечетно',a.isodd); var b: =a.tostring.joinintostring(' ').tointegers; println('первая равна x',b.first=readinteger('x-> ')? 'true': 'false'); println('последняя равна y',b.last=readinteger('y-> ')? 'true': 'false'); end. пример: a-> 456485 a нечетно true x-> 5 первая равна x false y-> 5 последняя равна y true

sveto4ckaklana

Информатика

4,6(15 оценок)

var sum, i, s: integer; //обыявляем необходимые переменные

//sum - сумма, i - кол-во слогаемых, s - само слогаемоеbegin //начало sum : = 0; i : = 1; s : = 5; //первое слогаемое = 5 repeat sum : = sum + s; //к сумме прибавляем слагаемое s : = s + 4; //увеличиваем слогаемое i : = i + 1; //увеличиваем кол-во слогаемых until (sum = 324); //выход когда сумма равна 324 writeln ('слогаемых: '); // выводим кол-во слогаемых write (i); end. //конец