Вот, перевод с точностью 100%
В школе имеется множество различных уроков, но больше всего мне нравится урок информатики. Этот предмет очень познавателен и интересен.Урок информатики у нас проходят очень весело и интересно, мы печатем какие-нибудь тексты и делаем какие-нибудь задания, а потом у нас все проверяют. Благодаря информатике я научилась многому, а также сейчас я довольно бытро печатаю на клавиатуре.<span> </span>
Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно
1 байт-8 бит
1 Кбайт-1024 байт
1 Мбайт-1024 Кбайт
1 Гбайт-1024 Мбайт
1 Тбайт-1024 Гбайт
1 буква-1 байт
Например Аппарат
У аппарата есть 7 букв
Теперь 7 × 8=56
Var x1,x2,x3,x4,x5,max:real;
begin
writeln('x1 x2 x3 x4 x5');
readln(x1,x2,x3,x4,x5);
max:=x1;
if max<x2 then max:=x2;
if max<x3 then max:=x3;
if max<x4 then max:=x4;
if max<x5 then max:=x5;
writeln('Наибольшее число - ',max);
end.
