ДГЖВБАЕ
должно получиться http://pic.kz/img.bmp
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.
В Паскале запрещены операции, при которых возможна потеря части результата. Поэтому, в частности, запрещается присваивание целочисленной переменной вещественного значения.
На этом основании неверны операторы 2 и 3.
Я напишу, ты тестируй
int test(char* a,int l,char c)// передавать в функцию нужно адрес(&) строки и длину строки(функция strlen()) и символ, добавляемый в конец слов
{ // строка не должна начинаться с пробела
int i,j,count=0;
for(i=0;i<l;i++)
{
if(a[i]==' ')
count++;
else if(a[i+1]==' ')
{
for(j=l;j>i+1;j++)
a[j+1]=a[j];
a[i+1]=c;
l++;
i++;
}
}
return count+1; // возвращает количество слов, строка должна заканчиваться словом
}