Регистрация
Jfjdhdhhdjdxjxh1111
23.04.2022 02:21
Информатика
Есть ответ 👍

Дан список, содержащий 10 записей, каждая из которых имеет структуру:
шифр книги - строка 5 символов
фио автора - строка 20 символов
название - строка 15 символов
год издания - целое
список по убыванию года издания. разработать алгоритмы и программы линейного и двоичного поиска книг, изданы до 1950 году с выводом найденных записей на экран.

204
368
Посмотреть ответы 1

Ответы на вопрос:

Alexa1888
Alexa1888
4,4(24 оценок)
Uses crt; var     a,b: integer;     p: real;     c: boolean; begin clrscr; write('введите натуральное число: '); readln(b); write('a = '); readln(a); p: =1; c: =false; b: =abs(b); while b> 0 do     begin     p: =p*(b mod 10);     if b mod 10 = a then c: =true;     b: =b div 10     end; writeln('p = ',p); if c then writeln('не верно') else writeln('верно'); readln end. uses crt; var     a: integer; begin clrscr; for a: = 100 to 999 do       if ((a+1) mod 2 = 0)and((a+2) mod 3 = 0)and((a+3) mod 4 = 0)and((a+4) mod 5 = 0) then write(a,' '); readln; end. uses crt; var     a,b,c: integer; begin clrscr; write('введите натуральное число: '); readln(b); write('a = '); readln(a); c: =0; while b< > 0 do     begin     if b mod 10 < > a then c: =c*10+b mod 10;     b: =b div 10;     end; while c< > 0 do     begin     b: =b*10+c mod 10;     c: =c div 10     end; writeln(b); readln; end.

Популярно: Информатика