На главную страницу | Новости  |  Ссылки | Контакты

Spyphy Farnsworth
Квантовая реальность. Кибернетика. Искусственный интеллект


Pascal: Обзор основных конструкций языка Pascal


Пример программы на Pascal


program primer1;
var 
	s1,s2:string;
	i:integer;
begin
	readln(s1); s2:='';
	for i:=length(s1) downto 1 do begin
		s2:=s2+s1[i];
	end;
	if s1=s2 then writeln(s1, ' - перевертыш')
	else  writeln(s1, ' - не перевертыш');
end.




Платы ARDUINO


arduino NANO купить дешево arduino UNO купить дешево arduino UNO R3 ORIG купить дешево arduino MEGA купить дешево arduino DUE купить дешево



Now 19.09.21 23:15:45, Your IP: 34.239.177.24; spyphy.zl3p.com/proger/pascal