Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678) последняя тема цикл for

297

488

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

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

124taafo

Информатика

4,7(16 оценок)

Program z1; var x1,x2,x3,x4: byte; begin for x1: =1 to 6 do begin for x2: =x1+1 to 7 do begin for x3: =x2+1 to 8 do begin for x4: =x3+1 to 9 do begin writeln(x1,x2,x3,x4) end end end end; readln end.

kudryashovaek

Информатика

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

№1 var a, b, c: integer; begin read(a, b, c); if((a = b) or (b = c) or (c = a)) then write('треугольник равнобедренный') else write('треугольник неравнобедренный'); end. блоксхема: начало ввод сторон(a, b, c) если a = b или b = c или с = a, то вывести: 'треугольник равнобедренный' иначе вывести: 'треугольник неравнобедренный' конец №2 var n, s, i: integer; begin s : = 0; read(n); for i : = 20 to n do begin if (i mod 2 < > 0) then s : = s + i; end; write(s); end. блоксхема: начало s : = 0, i : = 20 ввод числа n пока i не равно n если i - нечётное, то прибавить к s вывести s конец