const
rubles = 66.85;
var dollars:integer;
begin
writeln('Введите доллары: ');
readln(dollars);
writeln(dollars, ' в рублях = ', (dollars * rubles):2:2);
end.
Ответ:
AUBUC
Объяснение:
A-Жители Швейцарии владеют немецким языком
B-Жители Швейцарии владеют французским языком
C-Жители Швейцарии владеют итальянским языком
U-или (дизъюнкция)
Жесть какая.
Предполагая, что лампочки это единицы. а черные квадраты - нули, запишем шесть чисел и переведем их в десятичную систему. А каждому десятичному поставим соответствующую по номеру букву в русском алфавите
0001 1000 - 24 - Ц
0000 1010 - 10 - И
0001 0110 - 22 - Ф
0000 0110 - 6 - Е
0001 0010 - 18 - Р
0001 0100 - 20 - Т
Ответ: ЦИФЕРТ
var
a, b, Count: real;
begin
Read(a);
b := a;
Count := 0;
while b <> 0 do
begin
if b > a then inc(Count);
Read(b);
end;
Write(Count)
end.