// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525
1-я задача:
<span>Я<=Г </span>
<span>Г=15 </span>
<span>Ответ: плодов не более 30 (15 груш и не более 15 яблок) </span>
Y=(7*3+4)(2*3-2)
y=25*4
y=100
<u>1. Программа в одной из современных версий Паскаля:</u>
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var s:=ReadlnString('Исходная строка:');
Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.
<u>Тестовое решение:</u>
Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот
<u>2. Программа в "школьной версии"</u>
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
s:string;
i:integer;
begin
Write('Исходная строка: '); Readln(s);
for i:=Length(s) downto 1 do
if not(s[i] in legal) then Delete(s,i,1);
Writeln('Результат: ',s);
end.
360 килобайтов
351,5625 кикибайтов
0,00036 гигабайт
0,000335276127 гигибайт
кигобайтов не существует....