Question

Program chisla1234; var a,b,c1,c,d1,d:integer; begin Writeln ('ведите число'); Readln (a); b:= a div 1000; c1:= a mod 1000; Read (c1); c:= c1 giv 100; <====ТУТ d1:= c1 mod 100; Read (d1); d:= d1 giv 10; Writeln ('Ответ = ' 'Тысячи -' ,b 'Сотни -' ,c 'Десятки -' ,d); end. Выдаёт ошибку в паскале что ожидалось ; а встречено giv (пометил в какой строке ошибка словом <=====ТУТ)

Answer 1

Ответ:

Попробуй вместо giv написать div

Объяснение:

Answer 2

Ваш код содержит несколько ошибок, которые приводят к ошибке компиляции в Pascal. Давайте разберем их по порядку:

1. В строке `c:= c1 giv 100;` вы используете неправильный оператор. Вместо `giv` вы должны использовать оператор деления `/`. Исправьте эту строку следующим образом: `c := c1 / 100;`.

2. В строке `d:= d1 giv 10;` также используется неправильный оператор. Замените `giv` на `/`, чтобы получилось: `d := d1 / 10;`.

3. В строке `Writeln('Ответ = '+'Тысячи - '+,b+'Сотни - '+,c+'Десятки - '+,d);` вы неправильно используете запятые. Вместо этого, используйте оператор конкатенации `+` для объединения строк и переменных. Исправьте эту строку следующим образом: `Writeln('Ответ = '+'Тысячи - '+ b +' Сотни - '+ c +' Десятки - '+ d);`.

Вот исправленный код:

var
  a, b, c1, c, d1, d: integer;
begin
  Writeln('Введите число');
  Readln(a);
  b := a div 1000;
  c1 := a mod 1000;
  Read(c1);
  c := c1 / 100;
  d1 := c1 mod 100;
  Read(d1);
  d := d1 / 10;
  Writeln('Ответ = '+'Тысячи - '+ b +' Сотни - '+ c +' Десятки - '+ d);
end.

Теперь код должен компилироваться без ошибок.