var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
149(10)=10010101(2)
Если не задана разрядность, будем обходиться минимально необходимым количеством разрядов.
Тогда переводим в дополнительный код:
1 01101011
Если нужно дотянуть до 2х байт, то:
11111111 01101011
Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.
Газета - ин( бумага), текст
почтовая открытка- ин( бумага/картон), текст , .картинка
билет ин(бумага)текст
табл с ним дома ин(железная пластина) текст
сфорн к мф ин(CDдиск) вилеозапись
1)Корм. Пища, предназначенная для животных.
2) Мозг. Центральный орган нервной системы.
3)Гром. Сильный шум после молнии.
4) Маяк. Большой фонарь, помогающий самолётам и кораблям в направлении.