Ответы на вопрос:
Program ddg2; var x, y: real; begin writeln('введите x,y'); readln(x, y); writeln('z=', - 2 * sqr(x) + 2 * x * y); end.
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring; var q: set of char: =[]; foreach var c in s do q+=[c]; var k: =0; foreach var c in q do k+=1; writeln('разных символов в строке: ',k); end. пример qwertrvynnmuimopcjdshfdfddervtetv разных символов в строке: 19
Популярно: Информатика
-
redstar3329.11.2020 11:06
-
arkadikmxitary29.12.2020 05:10
-
katyaarbato21.01.2020 01:25
-
deniskohan5906.04.2023 21:25
-
geliebtemutter30.07.2021 23:22
-
Shaxrior02.07.2022 12:32
-
qwerty135221.12.2022 13:00
-
azolin5674567412.11.2022 17:37
-
4loVSer427.08.2020 13:00
-
LeraCat228804.12.2020 20:55