1)вывести числа кратные (11) от 10 до 100 в turbo pascal 2)с клавиатуры вводятся числа и последовательно перемножаются. найти кол-во введённых чисел, когда их произведение превысит 1000. прошу .

194

233

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

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

aktotyaubekerozp0uz

Информатика

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

1. var i: integer; begin for i: =10 to 100 do if i mod 11 = 0 then write(i,' '); writeln; end. результат: 11 22 33 44 55 66 77 88 99 2.var a,k,p: integer; beginreadln(a); p: =1; k: =1; while p< =1000 do begin p: =p*a; k: =k+1; readln(a); end; writeln('k = ',k,' p = ',p); end.пример: 58497k = 5 p = 1440