Вопрос по информатике:
Дана программа на языке Паскаль:
program а4;
var х, kl, k2: integer;
begin
kl := О;
k2 := О;
repeat
writeln ('Введите целое число');
readln (х);
if х<О then kl := kl + 1;
if х<О then k2 := k2 + 1;
until х=О;
writeln ('kl=', kl, ' ', 'k2=', k2);
end.
Записать эту программу на языке Паскаль,
используя оператор while
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.02.2017 06:05
- Информатика
- remove_red_eye 10101
- thumb_up 49
Ответы и объяснения 1
Program a4;
var
x, kl, k2: integer;
begin
kl := 0;
k2 := 0;
x:=1;
while x0 do
begin
writeln ('Введите целое число');
readln (x);
if x<0 then kl := kl + 1;
if x<0 then k2 := k2 + 1
end;
writeln ('kl=', kl, ' ', 'k2=', k2)
end.
Программа была написана с синтаксическими ошибками: a4 и х были записаны русскими буквами, а вместо нулей 0 использовалась буква О.
Кроме того, конструкции if x<0 then kl := kl + 1; и if x<0 then k2 := k2 + 1 делают одно и то же, только с разными переменными. Скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.
- 02.02.2017 09:45
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.