Составить программу для нахождения суммы следующей последовательности √1+√2+√3+√7+√9 (и все это под еще одним корнем). напишите эту программу для проверки на паскаль.
1. Определим информационную ёмкость страницы с цветным изображением Палитра в 16=2⁴ цветов требует 4 бита для хранения информации о цвете. Перемножаем: 320×640×4 = 819200 бит = 819200/8 = 102400 байт 2. Определим информационную ёмкость страницы с текстом Считаем, что каждый символ кодируется одним байтом. Перемножаем: 32×64×1 = 2048 байт 3. Определим, сколько байт нужно для хранения "блока" из восьми текстовых страниц и одной с цветным изображением 2048×8+102400 = 118784 байта 4. Переведем объем диска в байты 30×1024×1024 = 31457280 байт 5. Найдем количество полных девятистраничных "блоков" 31457280/118784 ≈ 264.8 ⇒ 264 полных блока или 264×9 = 2376 страниц 6. Найдем свободной объем дисковой памяти, который останется после размещения 264 блоков 31457280-264×118784 = 98304 байта 7. Найдем количество текстовых страниц, которые можно разместить в 98304 байтах 98304/2048 = 48. 8. Известно, что каждая девятая страница содержит изображение, а также. что блок неполный. Следовательно, в нем помещается 8 текстовых страниц и еще остается 98304-2048×8 = 81920 незанятых байт 9. Общее число страниц 2376+8 = 2384 страницы, в том числе 264 с цветным изображением.
Program n1; var k,n,i: longint; co: byte; function simply(a: longint ):boolean; var i: longint; begin simply:=true; for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin simply:=false; break end end end; function cr(a: longint): boolean; var n: longint; begin n:=a; cr:=false; repeat n:=n div 10; until n mod 10 =n; if n=(a mod 10) then begin cr:=true; end; end; begin readln(k,n); for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then begin write(i,' '); co:=1; end end; if co=0 then write(0); end.
s:real;
begin
s:=sqrt(sqrt(1)+sqrt(2)+sqrt(3)+sqrt(7)+sqrt(9));
writeln(s:1:2);
end.