<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No
Из математики:
треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т.е. необходимо провести три сравнения:
program qq;
uses crt;
var a, b, c, p: integer;
begin
p:=0; // обнуляем переменную
writeln('Введите через пробел значения a, b и с');
readln (a, b, c);
if a<=(b+c) then
if b<=(a+c) then
if c<=(b+a) then
p:=1; //если все условия
//выполнены то треугольник
//существует. присваиваем переменной значение 1.
writeln (p);
<span>end.</span>
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int a, b, n;
cin >> a >> b >> n;
cout << a*n + b*n/100 << ' ' << b*n%100;
return 0;
}