0 / 0 / 0
Регистрация: 13.04.2012
Сообщений: 8
1

Почему то программа не работает. Не подскажите почему?

22.04.2012, 17:27. Показов 1019. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
a[1..n]=random(int)
k=odd(a[1])
for i=1 to 59 do
if not (odd(a[i]) xor k) then begin
k=not k
buf=inc(buf)
end
 
if buf=59 then begin
i=0
repeat
sr1=a[i]+sr1
sr2=a[succ(i)]+sr2
i=i+2
Until i>=59
sr1=sr1 div 30
sr2=sr2 div 30
write (sr1,sr2)
end
else write (buf)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2012, 17:27
Ответы с готовыми решениями:

почему у меня программа не работает ..подскажите
Задание: Создать в программе Блокнот текстовый файл. Написать программу, которая расшифровывает...

подскажите почему программа работает неправильно
Использование двумерного массива как аргумента функции и возвращаемого значения функции выдает...

Подскажите пожалуйста почему программа не работает очень надо
Делфи

Подскажите почему не работает программа. Может быть где то ошибка в коде
using System; using System.Collections.Generic; using System.Linq; using System.Text; ...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2012, 17:27
Помогаю со студенческими работами здесь

Почему не работает sqrt? Подскажите, где ошибка? Простенькая программа с тремя функциями
#include "stdio.h" #include <math.h> #include "stdafx.h" double rekur(int k) { if(k==0)return...

Не работает удаление пробелов в строке! Подскажите пожалуйста, почему не работает?
Здравствуйте! Скажите пожалуйста, почему не работает данный код; должно брать строку, которую ввёл...

Подскажите почему не работает
start: var nickname = prompt('Введите никнейм'); var str = 'Ваш никнейм: '; if...

Подскажите почему не работает
void __fastcall TForm3::Image1DblClick(TObject *Sender) { if(Panel5->Caption.Trim()=="А") //...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru