Тут легко, нарисовать правдо не могу сейчас, первым делом это блок начало, затем блок ввода числа б , то есть количество машин, затем следующий блок ввода данных а, то есть цена машины, затем блок рассчета, с=а*б, то есть подсчёта выручки, затем блок вывода выручки и блок конец. Могу программу попробовать накидать если напишешь язык программирования
По логике так, возможны ошибки
Алг задача Нач Цел a, b,c Вывод "введите количество проданных машин: " Ввод а Вывод "введите цену за автомобиль: " Ввод b С:=а*b Вывод c Кон
Мне кажется, что эта программа неверна из-за отсутствия реализации про k-ую строку. Она выдает длину первой строки, а надо k-ой. Как это сделать - просто ввести счетчик на цикле, или использовать ту самую k. Итого код: var f:text; s:string; max,n,k:longword;//longword - беззнаковый аналог integer (если не будет работать, надо заменить обратно на intger) begin read(k);//Или откуда там мы берем это число 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.
Обращайтесь (/обращайся), если что-то не понятно, я попробую объяснить, причем как в этом решении, так и вообще в самом принципе решения.
begin
Seq(3,8,-10,5,18,14,26).Println.Reverse.Println
end.
Тестовое решение:
3 8 -10 5 18 14 26
26 14 18 5 -10 8 3