Var c1, c2, c3: integer;
b: boolean;
begin
readln(c1, c2, c3);
if (c1 = c2 * c3) then
begin
b := true;
writeln(c1, ' = ', c2, ' * ', c3);
end;
if (c3 = c1 * c2) then
begin
b := true;
writeln(c3, ' = ', c1, ' * ', c2);
end;
if (c2 = c1 * c3) then
begin
b := true;
writeln(c2, ' = ', c1, ' * ', c3);
end;
if not (b) then writeln('NO');
<span>end.
Третье ради спортивного интереса сделал:)
var a, b: string;
begin
writeln('Enter a string: ');
readln(a);
readln(b);
if (Pos(b, a) = 0) then writeln('No') else writeln('Yes');
<span>end.</span>
</span>
<h2>ЗКСЗЖ</h2>
не ( ложь ) и ( истина ) или ( истина ) = истина и истина или истина = истина или истина = истина
<h2>СЗКЖЖ</h2>
не ( истина ) и ( истина ) или ( ложь ) = ложь и истина или ложь = ложь или ложь = ложь
<h2>ЗСЗКС</h2>
не ( ложь ) и ( ложь ) или ( истина ) = истина и ложь или истина = ложь или истина = истина
<h2>КСЖЗЖ</h2>
не ( ложь ) и ( истина ) или ( ложь ) = истина и истина или ложь = истина или ложь = истина
<h2>
Ответ</h2>
2
Так, для начала узнаем сколько всего символов в тексте, для этого перемножаем количество страниц, количество строк и символов в строке 150*35*50 = 262500 (общее количество символов), потом переводим скорость в байты 19200/8=2400. И делим 262500 на 2400 и получаем 109,375, так как ответ нужен целым числом, округляем и получаем 110. Надеюсь помог)
Как я тебя понял, языки программирования это C1 и Java