В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
zhjdjq2005
zhjdjq2005
26.05.2022 00:56 •  Информатика

Создать программу для вычесления сумми заказа в lazarus. надо написать код. ниже оставила пример формы. за рание.

Показать ответ
Ответ:
Лазоревка
Лазоревка
13.03.2020 12:57

Проезжая на лошадях по дороге, автор встречает оборванного крестьянского мальчишку, за спиной которого висит котомка с книжками. Он идёт учиться. Некрасов решает подвести школьника, но тот только смущается. Автор обращается к своему юному спутнику, хотя и не ждет от него никаких ответов. Скорее, он хочет объяснить случайному собеседнику, что старания его родителей, отдавших последние деньги на обучение сына, не пропадут даром. Некрасов рисует перед крестьянским мальчишкой достаточно идиллическую картину, которую, тем не менее, подкрепляет фактами, и пророчит незнакомцу большое будущее. Возможно, он сможет повторить путь Ломоносова, этого «архангельского мужика», который «по своей и божьей воле стал разумен и велик». Поэт призывает сельского мальчонку не робеть, так как именно знания открывают перед ним все двери. Не исключено, что его юный собеседник сможет добраться до Москвы и станет учиться в университете, чтобы впоследствии принести своей стране гораздо большую пользу, чем избалованные дворянские отпрыски, которых поэт считает холодными, тупыми и напыщенными.

Источник: https://pishi-stihi.ru/shkolnik-nekrasov.html

0,0(0 оценок)
Ответ:
Evloevakhava
Evloevakhava
22.08.2022 15:30
//Pascal ABC.NET v3.1 сборка 1172

Var
 f,s:text;
 st,sp:string;
 i:integer;
 c:char;
begin
 assign(s,'text1.txt');
 reset(s);
 while not Eof(s) do
 begin;
 readln(s,sp);
 st:=st+sp+chr(10)+chr(13);
 end;
 close(s);
 for i:=1 to length(st) div 2 do
  begin
   c:=st[i];
   st[i]:=st[length(st)-i+1];
   st[length(st)-i+1]:=c;
  end;
 assign(f,'text.txt');
 rewrite(f);
 write(f,st);
 close(f);
end.

Текст в файле text1.txt:

Simple text
1And another simple text
2New text

Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота