1. Скорость передачи данных по wi-fi равна 5 Мб/с за. Сколько секунд удастся передать видеофайл объёмом 25*1000000 байт?
2.Скорость передачи данных по сети bluetooth равна 2 Мбит/с. За сколько секунд удастся передать рисунок объемом 3*1000000 байт? (1000000=10 в 6 степени)
Задача 1
var
y, x: integer;// Объявляем переменные типа Integer
begin// Начало блока
writeln('Введите X: '); //Выводим текст на экран
read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную
y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение
writeln('Результат: ', y);// Выводим результат
end. // конец блока
Задача 2:
var
a, b, c: integer;//Объявление переменных
begin
write('Введите длину ребра куба '); //Вывод текста на экран
read(a); //Читаем значение введеное с клавиатуры
b := a * a * a; //Вычисляем объем куба
c := 6 * sqr(a); //Sqr - квадрат числа
{Далее опять же вывод результата}
writeln('Объём куба равен ', b);
writeln('Площадь боковой поверхности куба равна ', c);
end.
Задача 3
var
k: integer;//Объявление переменных
begin
write('Введите число: '); //Вывод текста на экран
read(k); //Читаем значение введное с клавиатуры
if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно
writeln('Нечетное')
else
writeln('Четное');
end.
Задача 4:
var
a, b: integer;
begin
writeln('Введите a и b через пробел:');
readln(a, b);
if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)
else writeln('Число ', a, ' НЕ является делителем числа ', b);
end.
Задача 5:
var
a, b: real;
begin
writeln('Через пробел введите 2 числа: ');
read(a, b);
if a > b then //Условие если А больше Б
begin
a := a / 2; //Делим число А на 2 и выводим результат
writeln('A:= ', a, ' B:= ', b);
end
else //Иначе оставляем все как и было
writeln('A:= ', a, ' B:= ', b);
end.
//Максимальная длина вводимой строки#define Mx_s 255
//Массив символов, которые //необходиом удалить в начале и конце строкиchar sim[] = { '\t', ' '};//Функция проверяющая входит ли данный символ c в массив simint char_in_arr(char c) { int f = 0; for (int i = 0; i < strlen(sim); i++) { if (c == sim[i]) { f = 1; break; } } return f;}
int main(){ setlocale(LC_ALL, "rus"); //Вводимая строка char s[Mx_s]; //Ввод данных printf("\n >> Введите строку\n <<"); fgets(s, Mx_s, stdin); int l = strlen(s) - 1; //Переменные для определения отсечений в начале и конце строки int pos_b = 0; int pos_e = l-1; //Проверяем начало строки //Если нам попадаются удаляемые символы то увеличиваем значение pos_b for (;(pos_b < l) && char_in_arr(s[pos_b]); pos_b++) {}
//Проверяем конец строки //Если нам попадаются удаляемые символы то уменьшаем значение pos_e for (;(pos_e >= 0) && (char_in_arr(s[pos_e])); pos_e--) {}
//Длина отсеченного отрезка int l2 = pos_e - pos_b + 1; //Если длина корректа то if (l2 > 0) { //Строка для результата char s2[Mx_s];
//Идем по строке s1 int pos = 0; for (int i = pos_b, k_s = 0; i <= pos_e; i++) { //Считаем пробелы, идущие подряд if (s[i] == ' ') k_s++; else k_s = 0;
//Если это не подряд идущие пробел if (k_s < 2) { //записываем символ в s2 s2[pos] = s[i]; pos++; } } s2[pos] = '\0';
//Вывод результат printf("\n >> Результат\n <<"); fputs(s2,stdout); } else //Строка пуста/Содержит только символы из массива sim printf("\n >> Ошибка в строке\n");
system("pause>>void"); return 0;}