Создайте текстовый файл. определите, сколько строк файла имеют длину большую, равную и меньшую, чем заданное значение k.
171
467
Ответы на вопрос:
Пусть данные находятся в d: \f1.txt var k,min,eqv,max,n: integer; s: string; f: text; begin write('введите k: '); readln(k); assign(f,'d: \f1.txt'); reset(f); while not eof(f) do begin readln(f,s); n: =length(s); if n< k then min: =min+1; if n=k then eqv: =eqv+1; if n> k then max: =max+1; end; writeln('меньше k: ',min); writeln('равно k: ',eqv); writeln('больше k: ',max); end.
ответ:
3: 21212
4: 1122
объяснение:
3: из числа 1 число 26:
2: 1+1=2
1: 2^2=4
2: 4+1=5
1: 5^2=25
2: 25+1=26
4: из числа 18 число 16:
1: 18: 3=6
1: 6: 3=2
2: 2^2=4
2: 4^2=16
Популярно: Информатика
-
Valeri05060817.03.2020 13:58
-
Vernаrd15.03.2021 19:16
-
леомир24.06.2020 21:33
-
madam795221.03.2021 23:56
-
shkolnig201302.06.2020 00:21
-
genalysenko9801.01.2021 15:43
-
AlexSchoolLife22.03.2021 18:52
-
кулибяка218.05.2021 22:02
-
nechakva8619.11.2021 02:34
-
Мари789028.06.2021 19:59