//PascalABC.NET
//Версия 3.3, сборка 1634
begin
range(10,99).Where(x->x*x mod 13=0).Println;
end.
Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.
//7.Написать программу на Паскале вычисления значения функции(х^2 при х>0 х-12 при х≤0)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then writeln('Ответ ', power(x,2))
else writeln('Ответ ', x-12);
end.
//8.Написать программу на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.
var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.
//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6
var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 15*power(x,3)+3*power(x,2)-6)
end.
//10.Написать программу на Паскале вычисления значения функции(х^2+5х-4 при х>3х при х≤3)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>3 then writeln('Ответ ', power(x,2)+5*x-4)
else writeln('Ответ ', x);
end.
Int _tmain(int argc, _TCHAR* argv[])
{<span>
int s, rashod, ben;</span>
<span> printf("Расстояние до дачи (км): \n", s);</span><span>
printf("Расход бензина ( литров на 100 км пробега): \n", rashod);</span><span>
printf("Цена литра бензина (руб.): \n", ben);</span><span>
printf("Поездка на дачу и обратно обойдется в \n", (2*s/100)*rashod*ben);</span>
<span> return 0;
</span><span>}
s - расстояние
rashod - расход
ben - цена 1 литра</span>