Если шаг не задан явно, значит он равен 1.
Program yes_no;
var
n: integer;
begin
write('Введите число: ');
readln(n);
if (n mod 100 div 10) > 1 then
writeln('да')
else
writeln('нет');
end.
------------------
ЭВОЛЮЦИЯ
------------------
Э(Дана)-ВОЛЮ(Остаток от волка)-ЦИ(остаток от слова лицо)-Я(Дана)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println;
var (u,j):=ReadInteger2('Введите u и j через пробел:');
Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum);
Writeln('Произведение последних ',j,' элементов ',
k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q));
end.
<u>Пример</u>
n= 20
39 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22
Введите u и j через пробел: 12 13
Cумма первых 12 элементов 17
Произведение последних 13 элементов 2781117283830792192
#include <stdio.h>
#define pi 3.14
int main(void){
double S, h, r;
printf("Введите высоту цилиндра: "); scanf("%f", &h);
printf("Введите радиус: "); scanf("%f", &r);
S = 2.0 * pi * h * r;
printf("Площади боковой поверхности цилиндра равна %.2f", S);
return 0;
}