Задать вопрос
5 декабря, 21:59

Паскаль и работа с ним. Объясните как это работает, про строки и все тому подобное.

var a, c:integer; b:string;

begin

readln (a) ;

str (a, b) ;

b:=ReverseString (b) ;

Val (b, a, c) ;

writeln (a) ;

end.

+3
Ответы (1)
  1. 5 декабря, 23:14
    0
    Var - список переменных

    переменные а, с присваивают тип integer, т. е. целые числа; b присваивает тип string, т. е строковый тип

    begin - начало программы

    readln - оператор ввода, окончание ln осуществляет переход на новую строку

    str (a, b) - т. е. преобразовать данные числа в строку

    переменная b так же присваивает тип строковый

    Val (b, a, c) где: b - строка, а-результат, с-позиция с которой произошла ошибка преобразования или 0

    writeln (а) - оператор вывода, окончание ln осуществляет переход на новую строку

    end. - конец программы
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль и работа с ним. Объясните как это работает, про строки и все тому подобное. var a, c:integer; b:string; begin readln (a) ; str (a, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дана строка. Каждую точку замените многоточием (т. е тремя точками). В чем беда? или совсем не правильно? var str : string; q:integer; k:string; begin writeln ('введите строку') ; readln (str) ; k:=' ... '; q:=pos ('.
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)