<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Число -> ');
var b:integer;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);
<span>end.
2)
begin
var a:=ReadInteger('Число -> ');
var s:integer;
while a>0 do
begin
s+=1;
a:=a div 10;
end;
writeln('Количество:',s);
<span>end.
3)
begin
var a:=ReadInteger('Число -> ');
var s:=0;
var p:=1;
while a>0 do
begin
s+=a mod 10;
p*=a mod 10;
a:=a div 10;
end;
writeln('Сумма:',s);
writeln('Произведение:',p);
end.
4)
begin
var a:=ReadInteger('Число -> ');
var b:=ReadInteger('Цифра->');
var p:=0;
while a>0 do
begin
if b=a mod 10 then p+=1;
a:=a div 10;
end;
writeln('Количество',b ,':',p);
end.
</span></span></span>
Техника безопасности в кабинете информатики 30 лет назад
<span>Техника безопасности в кабинете информатики 30 лет назад и сейчас </span>
1) Для работы в компьютерном классе учащиеся должны приходить в сменной обуви и аккуратном виде
2) Запрещено употреблять ненормативную лексику
3) В компьютерном классе ученики должны быть строго в белых халатах или же в белой рубашке
4) Также учащиеся находятся в кабинете только во время урока, на перемене дежурный делает влажную уборку
При несоблюдении правил учащиеся отстраняются от работы в компьютерном классе
var s:string;
i:byte;
begin
writeln('Введите слово:');
readln(s);
writeln;
writeln('Их номера в алфавите:');
for i:=1 to length(s) do
case s[i] of
'А'..'Я' : write(ord(s[i])-1038+' ');
'а'..'я': write(ord(s[i])-1070+' ');
end;
readln
end.
Y:=x*Cos(x)*Ln(abs(x) ) / sqrt(1+ x*x*x)
Z:=sqrt(abs(10*y-sin(2*Pi*y)) )*(1/Tan(x+y)-1)/18
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('s=').Replace(ReadlnString('t='),''))
end.
<u>Пример:</u>
s= дождик, дождик, перестань!
t= дождик
, , перестань!