Var s : string; function conv(var astr : string): string; var ch : char; i : integer; begin conv: =' '; { na sluchai esli stroka budet pustoi} for ch: ='a' to 'z' do for i: =1 to length(astr) do if astr[i]=ch then astr[i]: =chr(ord(astr[i])-32); conv: =astr; end; begin writeln('enter string'); readln(s); writeln(conv(s)); readln end. для преобразования больших в маленькие замените -32 на +32 и в операторе for 'a' to 'z' поменяйте на большие
atupicyn754
09.09.2022
Const a = -2.05; b = -4.05; c = 3.4; h = -0.2; var x: real; begin x : = a; repeat if x + c - 0.00084 < 0 then writeln('x = ', x: 10: 5, ' y - не определен') else writeln('x = ', x: 10: 5, ' y = ', (x * sin(sqrt(x + c - 0.: 10: 5); x : = x + h; until x < = b; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу, выводящую на экран 10 первых чисел, так чтобы каждоепоследующее было в 2 раза больше предыдущего.питон
print(*[l*2 for l in range(