Переведём гигобайты в мегабайты:
1024 * 2 = 2048 мб (на флешке)
Потом узнаем размер 4-ёх папок:
635 * 4 = 2540 мб
И узнаем, сколько места нам не хватит:
2540 - 2048 = 492 мб
Ответ: не хватит 492 мб
Оте жэй:
граммдар килограммда конвертту керек: биз граммдар 1000ге болемиз. сондыктан осы массасы 300ге " * " деген операциясы истеймиз
var
A: array [1..12] of integer; //Массив, состоящий из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива
begin
writeln('Введите А[', i, ']');
readln(a[i]);
end;
write('Исходный массив: ');
for i:= 1 to 12 do {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}
begin
write(a[i], ' ');
if (a[i] > 0) and (a[i] mod 2 = 0) then
a[i]:= 5;
end;
writeln;
write('Измененный массив: ');
for i:= 1 to 12 do //Распечатываем измененный массив
write(a[i], ' ');
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m
Вебклиент. Это ответ на твоё задание
