#include <conio.h>
#include <iostream>
using namespace std;
int main()
{
char s[255];
bool palindrom=true;
gets(s);
for(int i=0;i<strlen(s)/2;i++)
{
if(s[i]!=s[strlen(s)-i-1])
{
palindrom=false;
break;
}
}
if(palindrom)
cout<<endl<<"Palindrom";
else
cout<<endl<<"Ne palindrom";
getch();
return 0;
}
<span>
</span>
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда В реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)
<span>(2х2=6 или 3х3=10) и (2х2=4 или 3х3=9) </span>⇒
(Ложь или Ложь) и (Истина или Истина) ⇒ Ложь и Истина ⇒ Ложь
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.