Проблема с переводом строчного типа в реальный

@enginekot · Регистрация: 12.11.2019

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program olimp1;
var x:string;
i, sum, l,ost :integer;
begin
  writeln('Введите число');
  read(x);
  sum:=0;
  l:=length(x);
  for i:=1 to l do
    sum:=sum+strtoint(x[i]);
    ost:=sum mod 3;
    ost := 3-ost;
    
for i:= 1 to l do
      If strtoint(x[i])+ost < 10 then
      begin
        x[i]:=inttostr(strtoint(x[i])+ost);
        break
      end;
      if (strtoint(x[i])+6)<10 then
        x[i]:=inttostr(strtoint(x[i])+6)
        else
          x[i]:=inttostr(strtoint(x[i])+3);
end.

@Puporev · 12.11.2019, 17:09

Что Вы вообще делаете и при чем здесь "реальный" тип?

@mr-Crocodile · 12.11.2019, 17:26

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

в реальный

что за реальный тип?

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

writeln('Введите число');

ты бы лучше рассказал условия задачи, которую пытаешься решить.

Добавлено через 4 минуты
а вообще, исправить ошибки присвоения в твоём коде можно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
  for i:= 1 to l do begin
      If strtoint(x[i])+ost < 10 then
      begin
        x[i]:=inttostr(strtoint(x[i])+ost)[1];
        break
      end;
      if (strtoint(x[i])+6)<10 then
        x[i]:=inttostr(strtoint(x[i])+6)[1]
        else
          x[i]:=inttostr(strtoint(x[i])+3)[1];
   end;
          
   x.Println

но я всё равно не понял, что и зачем ты делаешь с цифрами исходного числа.

Добавлено через 10 минут

Сообщение от mr-Crocodile

исправить ошибки присвоения в твоём коде можно так:

исправить можно, но это, скорее всего, не то, что ты ждёшь. (потому что x[i]+3 может дать ДВУХзначное число. А ты его в один символ пытаешься запихнуть. Так не выйдет!

огласи задание.

Новые блоги и статьи Все статьи Все блоги /
Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	12.11.2019, 17:09
	Что Вы вообще делаете и при чем здесь "реальный" тип? 0