Задать вопрос
ИнформатикаИнформатика
7 июля, 00:24

Найдите все ошибки в программе и исправьте их: Var i, j, k:integer; Begin Read ('введитеk'); i:=20; j:=k/i; Writeln (j =, j); End.

+5
Ответы (1)
  1. 7 июля, 00:34
    0
    В качестве параметра процедура Read принимает только имена переменных. Текстовый параметр 'введите k' мог бы быть параметром процедуры Write или Writeln.

    Для ввода значения переменной k следует использовать процедуру read (k).

    Переменная j может принимать дробные значения. Тип Integer для нее указан неправильно. Правильно - j: real.

    В процедуре вывода на экран Writeln текстовую часть (j = ) следует взять в кавычки.

    Точка с запятой перед End не ставится.

    Рабочая программа:

    program divide;

    var i, k: integer;

    j: real;

    begin

    write ('Введите k '); read (k);

    i: = 20; j: = k / i;

    writeln ('j = ', j)

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Найдите все ошибки в программе и исправьте их: Var i, j, k:integer; Begin Read ('введитеk'); i:=20; j:=k/i; Writeln (j =, j); End. ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.
Ответы (1)
Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с); if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c); end.
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, beginRandomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 dobeginRand[I]:random (50); write (Rand[I]:4) end; writeln; write ('Vvedite X:')); readln (X);
Ответы (1)
Нужен ответ
1. Назовите город, правитель которого начал Троянскую войну. В каком веке это произошло? 2. Сформулируйте историческую причину начала Троянской войны? 3. Сформулируйте мифологическую причину начало Троянской войны?
Нет ответа
Используя свойство 3 степеней, запишите в виде степениа) (2^2) ^3 б) (3^4) ^2 в) (3^7) ^2 г) (5^3) ^4 д) (10^3) ^5 е) (7^2) ^4
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » Найдите все ошибки в программе и исправьте их: Var i, j, k:integer; Begin Read ('введитеk'); i:=20; j:=k/i; Writeln (j =, j); End.
Регистрация Забыл пароль