Спрограммой (pascal), не знаю, где ошибка и как ее исправить : найти произведение длин самой длинной и k-й строк. var f: text; s: string; max,n: integer; begin assign(f,'1.txt'); reset(f); readln(f,s); n: =length(s); max: =n; while not eof(f) do begin readln(f,s); if length(s)> max then max: =length(s); end; close(f); writeln('длина самой длинной строки: ',max); writeln('длина k строки: ',n); writeln('произведение длин самой длинной и k строк: ', max*n); end.
193
432
Ответы на вопрос:
Мне кажется, что эта программа неверна из-за отсутствия реализации про k-ую строку. она выдает длину первой строки, а надо k-ой. как это сделать - просто ввести счетчик на цикле, или использовать ту самую k. итого код: var f: text; s: string; max,n,k: longword; //longword - беззнаковый аналог integer (если не будет работать, надо заменить обратно на intger) begin read(k); //или откуда там мы берем это число assign(f,'1.txt'); reset(f); readln(f,s); n: =length(s); max: =n; while (not eof(f)) and (k> 0) do begin k-=0; readln(f,s); if length(s)> max then max: =length(s); end; n: =length(s); while not eof(f) do begin readln(f,s); if length(s)> max then max: =length(s); end; close(f); writeln('длина самой длинной строки: ',max); writeln('длина k строки: ',n); writeln('произведение длин самой длинной и k-ой строки: ', max*n); end. обращайтесь (/обращайся), если что-то не понятно, я попробую объяснить, причем как в этом решении, так и вообще в самом принципе решения.
Самое простое – так: m1 ~ v1; m2 ~ v2. => v1*t1 + v2*t2 = (v1+v2)*t3, откуда: {сразу ставлю цифры}: t3 = (14+250)/6 = 264/6 = 44°с
Популярно: Информатика
-
qpdgjekelxnvi06.09.2021 15:05
-
KaTeRiN1320.11.2020 18:23
-
ewenchester14.03.2023 08:11
-
ник4111109.02.2020 00:01
-
dilyaramazhitova08.02.2020 12:57
-
BabaShyra08.05.2023 10:28
-
lolshowsasdasfd29.01.2022 00:22
-
zska2528.04.2021 00:18
-
Быковских16.07.2020 15:27
-
alinkamalina0428.12.2020 18:40