М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ivanvolkov2001
ivanvolkov2001
30.03.2023 04:13 •  Информатика

1. с клавиатуры вводятся 2 числа. если первое число больше 5, то уменьшить второе число в 2 раза. (записать комментарий в каждой строке программы) 2. среди трех введенных целых чисел найти количество положительных.

👇
Ответ:
TanyaCat225
TanyaCat225
30.03.2023
1.var a:integer;{объявление переменных}
          b:real;
begin{начало  тела программы}
write('введите два числа => ');{вывод сообщения пользователю}
readln(a,b);{ввод данных пользователем}
if (a>5) then {сравнение первого введённого числа с 5}
b:=b/2;{если а>5 b приравниваем к b делённое на 2}
writeln(b);{выводим b}
end.{конец тела программы}
2.var a,b,c,d:integer;{объявление переменных}
begin{начало тела программы}
write('введите три числа (через пробел) => ');{вывод информации пользователю}
read(a,b,c);{ввод инф. пользователем}
if (a>=0) then d:=d+1;{если а положительное число счётчик +1}
if (b>=0) then d:=d+1;{тоже самое что с верху}
if (c>=0) then d:=d+1;{тоже самое что с верху}
writeln('количество положительных чисел ',d);{вывод информации}
end.{конец тела программы}
4,5(64 оценок)
Открыть все ответы
Ответ:
Сенсей14
Сенсей14
30.03.2023

Какой оператор цикла желательно использовать, если известно число повторений тела цикла?

repeat <оператор1, …>until <условие>

while <условие>do <оператор>

for <параметр>:= <начальное значение>to<конечное значение> do<оператор>

2. Используется оператор for i:= -10 to 10 do…

После завершения выполнения тела цикла i = 10

3. Цикл в фрагменте программы

p:=1;

repeat

p:=p*0.1

until p>0.1;

будет исполнен:

1 раз

2 раза

бесконечное число раз

0 раз

3 раза

4. Цикл в фрагменте программы

a:=1;

b:=1;

while a+b<8 do

begin

a:=a+1; b:=b+2

end;

выполнится:

0 раз

3 раза

2 раза

1 раз

бесконечное число раз

5. Какой оператор цикла желательно использовать для записи алгоритмической конструкции, изображённой на схеме?

НЕТ СХЕМЫ. ОТВЕТИТЬ НА ВОПРОС НЕВОЗМОЖНО.

while <условие> do <оператор>

for <параметр>:= <начальное значение> to <конечное значение> do <оператор>

repeat <оператор1, …> until <условие>

6. Какой оператор цикла желательно использовать, если известно условие выхода из цикла?

repeat <оператор1, …> until <условие>

for <параметр>:= <начальное значение> to <конечное значение> do <оператор>

while <условие> do <оператор>

7. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:

a:=1; b:=1;

while a<=32 do a:=a*2; b:=b*a;  //Обратите внимание! Нет begin end.

write (b)

32

256

64

128

8. Используется оператор for i:= -5 to 9 do…

При первом выполнении тела цикла i = -5

9. Чему равно значение переменной s после выполнения следующего фрагмента программы

Фрагмента программы нет! Задание решить нельзя!

4,8(40 оценок)
Ответ:
msflower05
msflower05
30.03.2023
Procedure Dec2Oct(n:longint);
{ Перевод натурального десятичного n в восьмеричную систему счисления
  и вывод результата }
const
  alpha = '01234567';
var
  s: string;
  i:integer;
begin
  s := '';
  while n > 0 do begin
    s := alpha[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;

{ Использование }
var
  x:longint;
begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  Dec2Oct(x);
  Writeln
end.

Тестовое решение:
Введите десятичное число: 1234567
В восьмеричной системе счисления: 0004553207
4,8(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ