Question

Как сделать вместе чтобы работало? Var s:string; begin writeln('Как Вас зовут?'); write('Введите свое имя и нажмите ->'); read(s); write('Здравствуйте, ',s); end. Uses crt;var a,i:byte; s:real; begin clrscr; for i:=1 to 4 do begin writeln('vvod'); readln(a); if a mod 5=0 then writeln('Число ',a,' кратно 5 ') else writeln('Число ',a,' не кратно 5') end; end.

Answer 1

Чекай скрин вроде так :D

Answer 2

Вот         смывмывмифииыиывиывиывиывфифыи

Answer 3

Приведенный код на языке Pascal состоит из двух частей. Первая часть предназначена для получения имени пользователя и приветствия, а вторая часть выполняет проверку чисел на кратность пяти.

В первой части кода объявляется переменная "s" типа "string", в которую будет сохранено имя пользователя. Затем выводится текст "Как Вас зовут?" с помощью процедуры "writeln". Далее выводится текст "Введите свое имя и нажмите ->" с помощью процедуры "write". После этого считывается введенное пользователем имя с помощью процедуры "read" и сохраняется в переменную "s". Наконец, выводится приветствие с помощью процедуры "writeln", в котором используется значение переменной "s".

Во второй части кода используется модуль "crt" для очистки экрана с помощью процедуры "clrscr". Затем объявляются переменные "a", "i" и "s". Переменная "a" типа "byte" используется для хранения вводимых чисел, переменная "i" типа "byte" используется для цикла, а переменная "s" типа "real" используется для временного хранения чисел.

Затем с помощью цикла "for" от 1 до 4 выполняется следующий код: выводится текст "vvod" с помощью процедуры "writeln", считывается число с помощью процедуры "readln" и сохраняется в переменную "a". Затем с помощью условного оператора "if" проверяется, является ли число "a" кратным пяти (остаток от деления на 5 равен нулю). Если это так, выводится текст "Число a кратно 5", иначе выводится текст "Число a не кратно 5".

В конце программы нет необходимости вводить команду "readln", так как программа завершается после выполнения второй части кода.

Таким образом, код выполняет две задачи: получение имени пользователя и приветствие, а также проверку чисел на кратность пяти и вывод соответствующего сообщения.