1. The- bitrate of your intemet connection is around 2kbits/s. You need to send 5000 patient records and each of them contains tomography image (resolution of each image is around 2048X1536 pixels)- 3 pages of text information (76 chars and 42 rows for each page) and numerical data (10 Mb for each record). How much time will it take?
var a,n,i,s:integer;
begin
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
write(i,' элемент последовательности = ');readln(a);
if (a mod 2 <>0) then s:=s+a;
end;
writeln('Сумма нечетных = ',s);
end.
Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9