Var s:string;
begin
write ('Введите слово: '); read(s);
writeln('Количество символов в слове = ',length(s));
if s[2] = s[length(s)-1] then writeln('Вторая и предпоследняя буквы совпадают') else <span>writeln('Вторая и предпоследняя буквы не совпадают');
end.</span>
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
A = 5.
b = 5 + 2 = 7.
a = (5 + 2) * (7 - 3) = 7 * 4 = 28.
b = 28 div 5 = 5.
a = 28 mod 5 = 3.
a = 3 + 1 = 4.
b = (4 + 14) mod 7 = 18 mod 7 = 4.
Ответ: 4.
Если рулон обоев по 2.5 метров, то можно сделать 8 рулонов на четыре пятиметровые стены в длинну и 2.5 метров в высоту
#include <stdio.h>
int main()
{
int N;
char c;
printf("Исходное направление робота (n,w,s,e): ");
scanf("%c",&c);
printf("Команда (0,1,-1,2,-2): ");
scanf("%d",&N);
while (N != 0){
switch (N) {
case 1 : break;
case -1:
switch (c) {
case 'n' : c = 's'; break;
case 'w' : c = 'e'; break;
case 's' : c = 'n'; break;
case 'e' : c = 'w'; break;
};
break;
case 2 :
switch (c) {
case 'n' : c = 'e'; break;
case 'w' : c = 'n'; break;
case 's' : c = 'w'; break;
case 'e' : c = 's'; break;
};
break;
case -2:
switch (c) {
case 'n' : c = 'w'; break;
case 'w' : c = 's'; break;
case 's' : c = 'e'; break;
case 'e' : c = 'n'; break;
};
break;
}
printf("c = %c\n", c);
printf("Команда (0,1,-1,2,-2): ");
scanf("%d",&N);
}
return 0;
}
Пример:
<span>Исходное направление робота (n,w,s,e): n
Команда (0,1,-1,2,-2): 2
c = e
Команда (0,1,-1,2,-2): 1
c = e
Команда (0,1,-1,2,-2): -2
c = n
Команда (0,1,-1,2,-2): -1
c = s
Команда (0,1,-1,2,-2): 0</span>