Регистрация
Merlin131
19.02.2023 18:55
Информатика
Есть ответ 👍

Сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего program poc; var a,b: string; c,d: integer; begin writeln ('введите первую фамилию'); readln (a); writeln ('введите торую фамилию'); readln (b); c: = length (a); d: =length(b); if (c> d) then writeln ('первая фамилия длинее') else writeln ('втарая фамилия длинее'); if (c=d)then writeln ('длинна фамилий оденакова'); end.

112
313
Посмотреть ответы 2

Ответы на вопрос:

AnnGo9909
AnnGo9909
4,7(84 оценок)

if(c==d) then writeln("твой текст");

ArinaM25
ArinaM25
4,4(39 оценок)
Var a,b,c: integer;   p,n: string; begin readln(p) ; for a: =1 to length(p) do begin n: =copy(p,a,1); if (n=' ') or (n=',') then begin if b> c then c: =b; b: =0 end else b: =b+1; end; if c=0 then c: =b; writeln (c); end.

Популярно: Информатика