В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Перуна
Перуна
16.10.2020 21:00 •  Информатика

Тема:разветвляющийся в цикле вычислительный процесс. составить блок-схему алгоритма решения задачи двумя (цикл с предусловием, цикл с постусловием)


Тема:разветвляющийся в цикле вычислительный процесс. составить блок-схему алгоритма решения задачи д

Показать ответ
Ответ:
lisss2005
lisss2005
13.09.2020 21:04

1) 111+101=1100

Разбор: производим сложение, начиная с младших разрядов

1+1=10, пишем 0, 1 переносим в старший разряд

1+0 = 1, добавляем перенесённую ранее единицу 1+1=0, пишем 0, 1 переносим в старший разряд

1+1+1=11

 

2) 207+4152=4361

7+2=11, пишем 1, 1 переносим в старший разряд

0+5+1=6

2+1=3

0+4=4

 

3) A12+69=A7B

2+9=В

1+6=7

А+0=А

 

4) 100111-10001=10110

Начинаем также в столбик с младшего разряда

1-1=0

1-0=1

1-0=1

0-0=0

10-1=1

 

5) 342-215=125

2-5 не получается, добавляем единицу из старшего разряда

12-5=5

3-1=2 (было 4, но единицу мы вычли в предыдущем действии)

3-2=1

 

6) A1B2-97C=9836

2-C не получается, берём единицу из старшего разряда

12-С=6

A-7=3 (было B, но одну единицу мы использовали ранее)

1-9 не получается, берём едиинцу из старшего разряда

11-9=8

из А ранее вычли единицу, поэтому получим не А, а 9.

 

Надеюсь, понятно :)

0,0(0 оценок)
Ответ:
sokolovan061
sokolovan061
21.06.2022 06:56

var
x, n:integer;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
while n > 0 do
begin
if n mod 10 = x then
begin
writeln('Yes');
readln;
Exit;
end;
n := n div 10;
end;
writeln('No');
readln;
end.

 

 

 

 

 

 

 

//Задание 2

var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
n := random(18 + 3);
writeln('n = ', n);
for i := 1 to n do
begin
a[i] := random(11) - 5;
while a[i] = 0 do
a[i] := random(11) - 5;
write('a[', i, '] = ', a[i], ' ');
end;
a[i + 1] := 0;
writeln;

i := 1;

while(a[i + 1] <> 0) do
begin
if (a[i] = a[i + 1]) then
begin
writeln('a[', i, '] = a[', i + 1, '] = ', a[i]);
readln;
exit;
end;
inc(i);
end;
writeln('Нет ни одной пары одиноковых соседних чисел');
readln;
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота