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

Запиши верный ответ, если дан алгоритм:

a1:=7/(29x)
a2:=a1/x
a3:=a2/x
a4:=a3/x
y:=a1+a4

ответ (для переменной используй латинскую раскладку):

Показать ответ
Ответ:
бобгороха
бобгороха
19.05.2022 21:14

В 1623 году Вильгельм Шиккард придумал «Считающие часы» — первый арифмометр, умевший выполнять четыре арифметических действия. Считающими часами устройство было названо потому, что, как и в настоящих часах, работа механизма была основана на использовании звёздочек и шестерёнок. Это изобретение нашло практическое использование в руках друга Шиккарда, философа и астронома Иоганна Кеплера.

За этим последовали машины Блеза Паскаля («Паскалина», 1642 г.) и Готфрида Вильгельма Лейбница — арифмометр Лейбница.

Лейбниц также описал двоичную систему счисления — один из ключевых принципов построения всех современных компьютеров. Однако, вплоть до 1940-х многие последующие разработки (включая машины Чарльза Бэббиджа и даже ЭНИАК 1945 года) были основаны на более сложной в реализации десятичной системе.

В 1820 году Шарль Ксавье Тома де Кольмар создал первое серийно выпускавшееся механическое счётное устройство — арифмометр Томаса, который мог складывать, вычитать, умножать и делить. В основном, он был основан на работе Лейбница.

В 1845 году Израиль Штаффель представил счётную машину, которая кроме четырёх арифметических действий могла извлекать квадратные корни. Арифмометры, считающие десятичные числа, использовались до 1970-х.

Объяснение:

0,0(0 оценок)
Ответ:
Liza5414755
Liza5414755
11.08.2020 06:28

1.

var N: integer;

var s: string;

begin

write('Введите строку: ');

readln(s);

write('Введите N: ');

readln(N);

if (s.Length>N) then s:=s.Substring(0,N);

writeln('Результат: ',s);

end.

2.1 (С циклом For)

var s: string;

var c: char;

var i,n: integer;

begin

n:=0;

write('Введите строку: ');

readln(s);

write('Введите символ: ');

readln(c);

for i:=1 to s.Length do

if (s[i]=c) then n:=n+1;

writeln('Символ ',c,' встречается в тексте ',n,' раз');

end.

2.2 (С циклом Repeat)

var s: string;

var c: char;

var i,n: integer;

begin

n:=0;

i:=1;

write('Введите строку: ');

readln(s);

write('Введите символ: ');

readln(c);

Repeat begin

if (s[i]=c) then n:=n+1;

i:=i+1;

end;

until i=s.Length+1;

writeln('Символ ',c,' встречается в тексте ',n,' раз');

end.

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