Home
О нас
Products
Services
Регистрация
Войти
Поиск
PIUKC
@PIUKC
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.
Agree to
terms of service
You must agree before submitting.
Send
More Questions From This User
See All
PIUKC
August 2022 | 0 Ответы
python srochnooo vyrezhte dva pervyh simvola simvolnoj stroki i pomestite ih v
Answer
PIUKC
August 2022 | 0 Ответы
50 ballov pascal iz slova dostoprimechatelnost s pomoshyu komandy length cop
Answer
PIUKC
August 2022 | 0 Ответы
dayu 25 ballov vypolnyat v pascalabcnet dano x shestiznachnoe naturalnoe
Answer
PIUKC
August 2022 | 0 Ответы
reshite pozhalujsta v paskale najti summu cifr celogo chisla bolshih pyati 7 kl
Answer
PIUKC
August 2022 | 0 Ответы
kakih ostrovov dostigla flotiliya beringa v 1733 godu
Answer
PIUKC
July 2022 | 0 Ответы
pomogititeeeeeee hot chto nibud
Answer
PIUKC
July 2022 | 0 Ответы
python masha ochen delovaya devochka segodnya ona dolzhna shodit v dva magazina
Answer
PIUKC
July 2022 | 0 Ответы
dayu 25 ballov vypolnyat v pascalabcnet zadacha dano x tryohznachnoe chis
Answer
PIUKC
July 2022 | 0 Ответы
v protokole sportivnyh sorevnovanij u sudi zapisano vremya starta sportsmena i v
Answer
PIUKC
July 2022 | 0 Ответы
najti bolshee iz 4 yoh chisel pascal abc net
Answer
×
Report "2); For i:= 1 to M if s[i]<>s[L+1-i] then k:=1; If k=1 then writeLn(‘не па..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.