Используя str и конкатенацию, получить фразу "2000 лет".

@irina100 · Регистрация: 14.02.2017

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Primer; Uses crt;
 var a: string;
  r,x,y: integer;
 Begin
  clrscr;
 a:='100 лет';
  val(a,x,r);
  y:=5*x;
  write('Y=',y);
  readkey;
End.

Задание:
Исполнить пример , затем используя str и конкатенацию, получить фразу "2000 лет".

@Hitoku · 28.02.2017, 22:54

Задание не совсем понятно, т.к. в примере y=0 (как я понимаю должно быть 100) и не совсем ясно, что он демонстрирует

@chloyka · 01.03.2017, 08:50

Как бы понятно все. Пример допилить надо, для начала. Собственно, вот он - допиленный пример:
Program Primer;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses crt;
var a,b: string;
r,x,y: integer;
Begin
clrscr;
a:='100 лет';
b:=copy(a,1,3);
val(b,x,r);
y:=5*x;
writeln('Y=',y);
readkey;
End.

@Hitoku · 01.03.2017, 09:42

Pascal
1
2
3
4
5
6
7
Begin
var a:='100 лет';
var b:=copy(a,1,3);
var y:=20*StrToInt(b);
var str:=IntToStr(y)+' лет';
writeln(str);
End.

@Cyborg Drone · 03.03.2017, 23:38

Все приведённые решения не вполне соответствуют заданию. Указано:

Сообщение от irina100

используя str и конкатенацию

Поэтому программа должна выглядеть, например, так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, b: string;
    x: integer;
begin
  a := '100 лет';
  val(copy(a, 1, pos(' ', a) - 1), x);
  delete(a, 1, pos(' ', a) - 1);
  x := 20 * x;
  str(x, b);
  a := concat(b, a);
  write(a)
end.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	28.02.2017, 22:54
	Задание не совсем понятно, т.к. в примере y=0 (как я понимаю должно быть 100) и не совсем ясно, что он демонстрирует 0