Ответ: a 25
Я пронумеровал каждую букву и стирал по четыре буквы и четыре номера (одинаковых) до тех пор, пока не получил оставшейся номер 25 и букву a.
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Var a, b: real;
begin
read(a, b);
write((a + b) / 2 : 0 : 2)
end.
Ответ:
1) Нет
2) 4 секунды
Объяснение:
№1
-----Дано-----
17 роликов
Размер 1 ролика 490мб
-----Найти-----
Поместиться ли 17 роликов на флешку 8ГБ ?
-----Решение-----
17 * 490 = 8330мб
8330 \ 1024 = 8.1 ГБ
Берем в расчет еще и файловую систему флешки, там чистых 8 ГБ не будет даже на новой.
-----Ответ-----
Нет. 17 файлов на 8Гб-ю флешку не поместятся.
№2
-----Дано-----
Скорость передачи 2 048 000 бит/с
-----Найти-----
Через сколько секунд передаст файл размером 1000 Кбайт
-----Решение-----
2 048 000 / 8 = 256000 байт
256000 \ 1024 = 256 кбайт (256 Кбайт/с скорость канала)
1000 \ 256 = 3,9 секунды, округляем получаем 4 секунды.
-----Ответ-----
4 секунды на передачу.
Формулу сократить до
<span>1/6 (x - 4) (x - 5)
x!=-4
x!=5
и дальше что-то вроде
var
x,y,z,s:integer;
begin
writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))', в целых числах);
writeln('Введите значение X);
</span>readln(x);
y:=x-4;
z:=x+5;
if ((y=0) or (z=0)) then writeln('Значение функции не определено');
else begin
s:= 1/6*y*z;
write('s =');
writeln(s);
end;
end.
не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.