Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b: integer;
is7: boolean;
begin
readln(a);
b: =0;
is7: =false;
while a < > 0 do
b: =b+a mod 10;
if a mod 10 = 7 then
is7: =true;
a: =a div 10;
end;
wrtieln('сумма цифр: ', b);
write('цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
qbasic
screen 7
input x
input y
input c
s=x+y/2*c
print "x+y/2*c="; s
end
десятичная двоичная восьмеричная шестнадцатиричная
1)
10 1010 12 a
18 10010 22 12
322 101000010 502 142
2)
10 1010
74 112
92 5c
числа снизу обозначают систему счисления
пион-пониадрес-средалапа-апалполучить-поучить карета-ракета
каприз-приказ
калоша-ладошка
мошкара-рамашка
Популярные вопросы