Var m, n : integer;
begin
riadin(m,n);
if (m mod n)=0 then
write(m div n) else
writeln(m, ' на ' ,n, ' на целое не делится. ');
end
Максимально подробно.
1 символ занимает 8 бит = 1 байт.
1 усл. п. л. занимает 96 Кбайт = 98304 байт = 98304 символов (1 Кбайт = 1024 байта)
4 усл. п.л. будут занимать 393216 символов.
Находим время: 393216 символов / 512 символов в секунду = 768 секунд = 12,8 минуты
Ответ: 12,8 минуты или 12 минут 48 секунд.
Ответ на ребус: Компьютер
1. К О идет стрелка М
2. Рельсы обозначают слово ПУТЬ
У заменяем на ЬЮ, убираем последнюю букву
ПЬЮТ
СЕРдце
Запятыми на картинке обозначены буквы, которые убираем.
#include <iostream>
using namespace std;
int main()
{
int a;
if (a>=18) {
cout << "совершеннолетний";
}
else {
cout << "несовершеннолетний";
}
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47