8 + 512 = 520 сек потребуется мише для получения информации
Ответ дал: Гость
а-1; мама-4; весна-5 - количество букв
а-1; шея-2; мама-2; огурец-3 - количество гласных
а-0; шея-1; мама-2; огурец-3 - количество согласных
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Ответ дал: Гость
random это функция возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:
a: = random(101)-50; {числа от -50 до 50}
b: = random(101)-200; {от -100 до 100}
а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!
Популярные вопросы