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

Составить алгоритм сложения двух целых чисел B и N , вводимых с клавиатуры. Результат сложения записать в виде переменной Z . По данному алгоритму написать программу в Паскале.

Алгоритм

алг сложение
цел B,N,Z
нач
ввод B
ввод N
Z=B+N
вывод Z
кон
алг сложение
цел B,N,Z
нач
ввод B
ввод N
Z:=B+N
вывод Z
кон
алг сложение
цел B,N,Z
нач
ввод B
ввод Z
N:=B+Z
вывод Z
кон

Программа в Паскале

program summa;
var
B,N,Z:integer;
begin
readln(B);
readln(N);
Z:=B+N;
writeln(B);
end.
program summa;
var
B,N,Z:integer;
begin
readln(B);
readln(N);
Z:=B+N;
writeln(Z);
program summa;
var
B,N,Z:integer;
begin
readln(B);
readln(N);
Z:=B+N;
writeln(Z);
end.

👇
Открыть все ответы
Ответ:
arsenpogosyan
arsenpogosyan
28.11.2022

В объяснении

Объяснение:

1 Вариант

1. 1)ppt

2. 1) my.doc, bell.txt, song.docx;

3. 3)мышь

4. 1) красного, синего, зеленого

5.Объем сообщения определяется по формуле:

V=l*r,

где l-длина сообщения, r-разрешение.

l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).

r=1 байт=8 бит.

Объем сообщения равен:

V=50*8=400 бит.

6. не понятно, что делать, задания не видно как-то

7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114

8. Нет рисунка  собственно

9.  64 бита < 16 байт

10 Кбайт < 10600 байт

10 байт = 80 бит

10. Нет схемы

4,4(76 оценок)
Ответ:
Tusovik
Tusovik
28.11.2022

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
4,6(3 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ