Какой результат получится после работы программы вводится пользователем 3

В фрагменте программы имеются ошибки. А:=5 // Пропущена точка с запятой в конце строки. Write ‘Введите число’; // должно быть Write (‘Введите число’); Read (x); If x>0 then B:=x*x; Write ‘ответ=’, А; //должно быть Write (‘ответ=’, А); Если объявить переменные, вставить begin…end, то программа при любых введенных x будет выводить на экран значение переменной А: ответ = 5. А от х не зависит. Текст рабочей программы: program answer; Var A,B,x: integer; begin A:=5; writeln(‘Введите число’); Read (x); If x>0 then B:=x*x; Write (‘ответ=’, A); End.

Добавить свой ответ Ответить на вопрос

Еще вопросы

Источник: znanija.site

Какой результат получится после работы программы? Вводится пользователем: 6.

107 Обрабатываем то, что вводит пользователь

С клавиатуры вводится число 6, это переменная K. Выводится результат функции P.

Её логика: если n (число, которое передаётся функции) = 1, то P = 1, иначе: P = P(n — 1) + 3. В нашем случае n ≠ 1, поэтому выполняется следующая операция:

P = P(n — 1) * 3, поэтому вывод и 16, а не 1.

Ответ дал: Гость

// версия 3.3.5 сборка 1662 (29.04.2018)

println(‘кол-во символов -‘,readstring(‘слово-> ‘).length)

кол-во символов — 9

var s: =readstring(‘слово-> ‘).tolower;

var s: =readstring(‘слово-> ‘);

println(readstring(‘слово-> ‘).length mod 2=0? ‘четно’: ‘нечетно’);

Ответ дал: Гость

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

program string_7; var s: string; k,l,i: integer; begin write(‘введите строку: ‘); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]=’н’ then k: =k+1; if s[i]=’м’ then l: =l+1end; writeln(‘н=’,k); writeln(‘м=’,l); if k> l then writeln (‘больше букв н’); if k< l thenwriteln (‘больше букв м’); if (k = 0) and (l = 0) thenwriteln (‘таких букв нет’); end.