А10=1997,25=1*10^3+9*10^2+9*10^1+7*10^0+2*10^(-1)+5*10^(-2)
A16=918=9*16^2+1*16^1+8*16^0
A8=145=1*8^2+4*8^1+5*8^0
A2=101010=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0

0 0

3 года назад

Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.) Задача: Дано целое

Yunniya [7]

uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.

Если нужно выполнять программу из-под программной оболочки, удали первую строку.

0 0

4 года назад

В классе 1011 по основанию 2 девочек и 1010 по основанию 2 мальчиков

Кембель

11 девочек м 10 мальчиков.
<span>1011= 1*2^3+0*2^2+1*2^1+1*2^0=8+0+2+1=11
</span>1010= 1*2^3+0*2^2+1*2^1+0*2^0=8+0+2+0=10

0 0

4 года назад