#include <iostream>
int main(void)
{
int a, b; std::cin >> a >> b;
std::cout << (a % b ? "No" : "Yes") << std::endl;
return 0;
}
В 3-ем может быть ошибка. У меня 2-ой месяц нет матана, так что извиняй если что =) А так сама программа составлена правильно
var
a, b, c, o1, o2, o3: real;
begin
writeln('Введите a,b и c через пробел');
readln(a, b, c);
o1 := sqrt(2 * a - 3) / b - 1 + sqrt(sqr(c) + a * c + sqr(a));
o2 := sqrt(2 + sqrt(2 + sqrt(b + sqrt(abs(c - a)))));
o3 := 1 / 1 + 1 / a + 1 - b / 1 - c;
writeln('a) ', o1);
writeln('b) ', o2);
writeln('c) ', o3);
end.
Введем обозначения А - 8 литров, Б - 5, В - 3
1) переливаем из А в Б, итого получим А=3, Б=5, В=0
2) переливаем из Б в В, итого получим А=3, Б=2, В=3
3) переливаем из В в А, итого получим А=6, Б=2, В=0
4) переливаем из Б в В, итого получим А=6, Б=0, В=2
5) переливаем из А в Б, итого получим А=1, Б=5, В=2
6) переливаем из Б в В, итого получим А=1, Б=4, В=3
7) переливаем из В в А, итого получим А=4, Б=4, В=0
-Вы пользуетесь интернетом (варианты: да, нет)
-Вы пользуетесь интернетом по долгу служы (да. нет)
-Вы пользуетесь интернетом для личных целей (да. нет)
-Какое количество времени Вы затрачиваете на пользование интернетом (час, два-три, более 3-х)
-Каким интернетом Вы пользуетесь (варианты-виды интернета xDSL, кабельный, модем-флешка точные названия не знаю)
-Вас устраивает качество, скорость используемого интернета (да. нет)
-Каким тарифом Вы предпочитаете пользоваться (базовый, лимитный, комбинированный)
-Вас устраивает сумма оплаты за используемый тариф (да, нет)
Вопросы личного характера:
-укажите пожалуйста Ваш возраст (до 15, 16-25 лет, 26-45 лет, 46-55 лет, более 55 лет)
-Ваш социальный статус ( школьник, студент ит. д. )
<span>-Ваш уровень дохода (указать уровни) </span>
//PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
