Взвешиваем две любые монеты- Чашки в равновесии -Да Третья монета фальшивая-Нет Фальшивая монета в более легкой чашке
var
a,b,c:integer;
begin
readln(a); readln(b); readln(c);
if a mod 2 <> 0 then
Writeln('Первое нечетное')
else if a mod 2 = 0 then
Writeln('Первое четное');
if b mod 2 <> 0 then
Writeln('Второе нечетное')
else if b mod 2 = 0 then
Writeln('Второе четное');
if c mod 2 <> 0 then
Writeln('Третие нечетное')
else if c mod 2 = 0 then
Writeln('Третие четное');
end.
Переведите число CAFE из 16ричной в 2 систему счисления
сколько будет ABC(18) + DEF(20) в двоичной
var s: string;
begin
readln(s);
writeln('кол-во символов: ',length(s));
if s[1]=s[length(s)] then
writeln('первая и последняя буквы слова совпадают')
else writeln('первая и последняя буквы слова не совпадают');
writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);
if length(s) mod 2=0 then write('кол-во символов четное')
else write('кол-во символов нечетное');
end.
#include <stdio.h>
int main(void) {
char c1,c2;
int k=0;
printf("Вводите символы (в конце ';')\n");
scanf("%c",&c2);
do {
c1 = c2;
scanf("%c",&c2);
if ((c1 == ':')&&(c2 == '=')) k++;
}
while (c2 != ';');
printf("k = %d",k);
return 0;
}
Пример:
<span>Вводите символы (в конце ';')
</span><span>i:=0, s:=0;
</span>k = 2