Задание:
Помогите решить контрольную работу по информатике по теме «циклы»! (сколько сможите) 1. Найти значение функции y=3x+12 на отрезке от 0,2 до 0,6 с шагом 0,1. 2) На числовом отрезке от n до 180 с шагом 20 сосчитать сколько чисел больше 100. 3) Дана символьная константа «трагикомедия». Составить из этого слова три новых слова, используя при этом все три символьные функции и операцию слияния.
Решение:
var x: real; i: integer; beginfor i: =2 to 6 do beginx: =i/10; write (3*x+12,'); end; end. var i,s: integer; beginreadln (i); while i <= 180 do begin if i>100 then inc (s); i: =i+20; end; writeln (s); end. const N='tragikomediya'; var i: integer; beginfor i: =6 to 13 dowrite (N[i]); writeln; for i: =1 to 4 dowrite (N[i]); for i: =9 to 13 dowrite (N[i]); writeln; write (N[6]); for i: =3 downto 1 dowrite (N[i]); write (N[3]); writeln; end.
Знаете другой ответ?