Komek edäýiň?!
Salam agzalar! Men heniz okuwçy. Basym welaýat boýunça geçiriljek olimpiýada informatikadan taýynlyk görýän. Men köp zatlary öwrendim ýöne bir meseläni çözüp bilemok. Internetden hem gözledim... Netije ýok. Eger araňyzda bilýäniňiz bar bolsa şu aşakdaky meseläniň programmasyny Paskal ýa-da Basik dilinde düzüp berseňiz minnetdar bolardym:
Berlen sözlemdäki sözleriň iň uzynyny çapa çykarmaly
Arhiwiň ýagdaýy
● Doly tekst
● 3/3 teswir saklanypdyr
Ýazylan saýty: teswirler.com · Çeşme: Web Archive nusgasy — ertir.com, 19 maý 2012 ý. · Asyl sahypany gör ↗
Teswirler 3
martyñ 22-sinemi?
yok 27 fewralda
uses crt;
var a:array[1..100] of String;
b:array[1..1000] of integer;
t,i,max,l:integer;
begin
clrscr;
Write('Nace soz');
Readln(t);
for i:=1 to t do
begin
Write('a[',i,']=');
Readln(a[i]);
end;
for i:=1 to t do
b[i]:=length(a[i]);
max:=b[1];
for i:=1 to t do
if max