Алг нач вещ a, b, c лог d a := 1 b := 0 c := 0 d := да нц пока (d) ввод a ввод b ввод c если не ((a < b+c) и (b < a+c) и (c < a+b)) то вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") не существует" d := нет иначе если (((a ** 2 = b ** 2 * c ** 2) или (b ** 2 = a ** 2 + c ** 2) или (c ** 2 = a ** 2 + b ** 2)) и ((a <> b) и (b <> c))) то вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") прямоугольный", нс все все кц кон
Она спрашивает стороны, пока не введёшь стороны несуществующего треугольника (например 1-0-1) =)
Var a: string; words, nums, chars, i, sen: integer; begin readln(a); words := 1; For i := 1 to Length(a) do begin If (a[i] = ' ') then inc(words); if (a[i] in ['0'..'9']) then inc(nums); if (a[i] = #13) then inc(sen); if (a[i] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) then inc(chars); end; writeln(Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers)', #13, Sen, ' sentences'); end.
Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать =)
нач
вещ a, b, c
лог d
a := 1
b := 0
c := 0
d := да
нц пока (d)
ввод a
ввод b
ввод c
если не ((a < b+c) и (b < a+c) и (c < a+b)) то
вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") не существует"
d := нет
иначе
если (((a ** 2 = b ** 2 * c ** 2) или (b ** 2 = a ** 2 + c ** 2) или (c ** 2 = a ** 2 + b ** 2)) и ((a <> b) и (b <> c))) то
вывод "Треугольник A(", a, ") B(", b, ") C(", c, ") прямоугольный", нс
все
все
кц
кон
Она спрашивает стороны, пока не введёшь стороны несуществующего треугольника (например 1-0-1) =)
words, nums, chars, i, sen: integer;
begin
readln(a);
words := 1;
For i := 1 to Length(a) do
begin
If (a[i] = ' ') then inc(words);
if (a[i] in ['0'..'9']) then inc(nums);
if (a[i] = #13) then inc(sen);
if (a[i] in ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я']) then inc(chars);
end;
writeln(Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers)', #13, Sen, ' sentences');
end.
Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать =)