tarhan1221
?>

перевести с паскаль на с++ Буду благодаренprogram Text10;var F_in, F_out: Text; Name, S: String; K, i:integer;begin Write('File name: '); Readln(Name); Assign(F_in, Name); Assign(F_out, '~'+Name); Write('K: '); Readln(K); Reset(F_in); Rewrite(F_out); i:=0; While not eof(F_in) do begin Readln(F_in, S); inc(i); Writeln(F_out, S); if i=k then Writeln(F_out); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out, Name);end.

Другие предметы

Ответы

Panei

Хвхклут

Объяснение:

Овлкдьедкдб дцдкькьдк

natasham-716

ответ: Би́тва за Днепр — ряд взаимосвязанных стратегических операций Великой Отечественной войны, проведённых ВС Союза ССР, во второй половине 1943 года на берегах Днепра.  

С обеих сторон в битве приняло участие до 4 млн человек, а её фронт растянулся на 750 километров. В результате четырёхмесячной операции Левобережная Украина была почти полностью освобождена Красной армией от нацистских захватчиков. В ходе операции значительные силы Красной Армии форсировали реку, создали несколько стратегических плацдармов на правом берегу реки, а также освободили город Киев. Битва за Днепр стала одним из крупнейших сражений в мировой истории.

Angelina1139
Докажите, что «подозрительным» можно было объявить любого гражданина Франции.
было слишком много поводов, чтобы считать человека подозрительным
Кто отвечал за выявление «подозрительных»? Как вы думаете, кто состоял в таких организациях?
Наблюдательные советы, доверенные государственные люди. Докажите цитатами из Закона о подозрительных и учебника» что «подозрительные» — это люди, еще не совершившие никаких преступлений,
Учебник: «В сентябре был принят закон о подозрительных, предписывавший арестовывать и содержать в тюрьмах (причём за их счёт) вплоть до заключения мира всех подозрительных, т.е. людей, ещё не совершивших никаких преступлений»,
Закон; Ст.2. пункт 1.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

перевести с паскаль на с++ Буду благодаренprogram Text10;var F_in, F_out: Text; Name, S: String; K, i:integer;begin Write('File name: '); Readln(Name); Assign(F_in, Name); Assign(F_out, '~'+Name); Write('K: '); Readln(K); Reset(F_in); Rewrite(F_out); i:=0; While not eof(F_in) do begin Readln(F_in, S); inc(i); Writeln(F_out, S); if i=k then Writeln(F_out); end; Close(F_in); Close(F_out); Erase(F_in); Rename(F_out, Name);end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

egamedicalbuh
Gulyaev_Egorkina
besson89
anyakru94
kapitan19
Олег86
Rakitin
Sergeevna803
IPMelnikovR146
Сороченкова-Александр
s-laplandia6
avn23
whitecatrussia5398
Баранов276
aci2003