Информатика, опубликовано 25.03.2019 21:40
4. что будет выведено на экран в результате выполнения инструкции? a) n : =5; x : =0; for i: =1 to n do x: = i; writeln(x); b) n: = 1; while n < = 10 do begin x: = n*n; writeln (n : 6, ’ ‘ , x : 6); end; c) n : = 0; repeat write(‘ * ’); n : = n + 1; until n < 5; 5. чему будет равно значение
переменной n после выполнения инструкции? n: =0; while n < 5 do n : = n+1; 6. для данной инструкции запишите условие окончания цикла так, чтобы цикл завершался, если введено 10 чисел или введенное число 0. n: = 0; repeat write(‘ -> ’); readln(a); n: =
n+1; until ; 7. составьте программу, которая а) выводит на экран числа от 1 до 10. б) квадраты нечетных чисел от 7 до 27. в) квадратные корни из чисел 3, 7, 11, …23.
Ответы
Ответ оставил: Гость
#4 a) 1 2 3 4 5 b) 1 1 2 4 3 9 4 16 5 25 6 36 7 49 8 64 9 81 10 100 c) пустой вывод #5 n = 5 #6 until n > 10 or a == 0 #7 a) program _1to10; var i: integer; begin for i : = 1 to 10 do write(i, ' ') end. b) program sqr_7_27; var i: integer; begin for i : = 7 to 27 do begin if i mod 2 == 1 then write(sqr(i), ' '); end; end. c) program sqrt_3_4per_23; var i: integer; begin i : = 3; repeat write(sqrt(i), ' '); i : = i + 4; until (i > 23); end.Ответ оставил: Гость
2,6,5,3,1,4,7 вроде такОтвет оставил: Гость
(8*128*800)/60/1024=13.3 секунды.Ответ оставил: Гость
Можеш попробуватиWriteln( a; b; c);
End.
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
