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

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 06.12.22 10:38:18, Your IP: 34.231.21.105; spyphy.zl3p.com/proger/pascal