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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Почему программа excel называется электронной таблицей? только нормальный ответ
Автор: Leonidovich_Elena771
Дана матрица 4 на 6 найти минимальный и максимальный элемент в этой матрице. !
Автор: Shurshilina850
Подскажите как сделать это задание очень важно
Автор: Kulikovvl9
Что выведет программа? a = 3 b = 9 if a>=b: print (a) else: print (b) 1)92)33)27 решить
Автор: Меладзе_Владимир1695
Кластер әдісімен экономиканың мақсаты мен міндеттерін тұжырымдап жазындар
Автор: airlineskozlova69
ВСЕ НЕ НАд Я ВСЕ ПОНЯЛ БЕЗ ВАС
Автор: Сорокина-Светлана
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