1. миша шифрует слова, записывая вместо каждой буквы её номер в алфавите (без пробелов только одна шифровка расшифровывается единственным образом.) 1 слово - 2016, 2 слово - 2345, 3 слово - 4523, 4 слово - 6120 * 2. выполните алгоритм: а: =17 b: = 23 b: = а+b+1 a: = b+а * 3. выполните алгоритм: s: =2 для к от 1 до 3 s: = s * s * 4. переведите число 73 из восьмеричной системы в двоичную * 6. файл размером 4 мбайта через некоторое соединение за 16 секунд. определите время в секундах, за которое можно передать через тоже соединение файл размером 2048 кбайт. * решите кто что сможет, но зелательно все надо!
Ответы
Program amstrong; var a,b: integer; i,j,k, ci, si,mi, errkod: integer; sti: string; flag: boolean; begin readln(a,b); flag: =false; for i: =a to b do begin str(i, sti); si: =0; for j: =1 to length(sti) do begin val(sti[j],mi,errkod); ci: =1; for k: =1 to length(sti) do ci: =ci*mi; si: =si+ci; end; if si=i then begin write(si,' '); flag: =true end; end; if not flag then write(-1); readln; end.
Program amstrong; var a,b: integer; i,j,k, ci, si,mi, errkod: integer; sti: string; flag: boolean; begin readln(a,b); flag: =false; for i: =a to b do begin str(i, sti); si: =0; for j: =1 to length(sti) do begin val(sti[j],mi,errkod); ci: =1; for k: =1 to length(sti) do ci: =ci*mi; si: =si+ci; end; if si=i then begin write(si,' '); flag: =true end; end; if not flag then write(-1); readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Төменде берілген программа кодтарын жазуда
Автор: tanysha1990
Какова скорость оптоволоконного кабеля в мбит/сек? a. 1024 b. 8 c. 2 d. 3072
Автор: emartynova25
Об'єкти яких видів можно додавати в публікацію
Автор: Демидова Красноцветов
1) 4
2) b = 17 + 23 + 1 = 41
a = 41 + 17 = 58
3) k = 1 s = 2 * 2 = 4
k = 2 s = 4 * 4 = 16
k = 3 s = 16 * 16 = 256
4)
5) 4 мбайт = 4 * 1024 = 4096 кбайт
размер файла который был передан первым в 2 раза больше размера фала который был передан вторым значит на передачу второго файла потребуется в 2 раза меньше времени
16 / 2 = 8 ctr