March 2022 0 10 Report
20 БАЛЛОВ!!! В Pascal доделать программу, чтобы она работала: типо дописать begin, var... ЗАДАЧА: ReadLn(s);
L:= length(s);
M:= trunc(L/2);
For i:= 1 to M if s[i]<>s[L+1-i] then k:=1;
If k=1 then writeLn(‘не палиндром’)
else writeLn(‘палиндром’);
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.