Васильевна_Наталья
?>

От программы записанной на алгоритмическом языке, перейдите к записи программы паскаль. определите, что будет напечатано в результате работы программы, если были введены следующие числа: 1; 5; -10; 3; -8; 6; 4; 0. алгоритм. язык алг. цел s, x нач s: =0 нц ввод х s: =s+x кц при х=0; вывод s кон

Информатика

Ответы

Узлиян Фурсов1488

var s,x: integer; begin s: =0; repeat read(x); s: =s+x; until x=0; writeln(s);

end.

 

будет выведено 1

Чунихина1586
#include < bits/stdc++.h> using namespace std; int main() { freopen("input.txt","r",stdin); freopen("output.txt","w",stdout); string s; getline(cin, s); for (int i=0; i< s.length(); i++) { if (s[i]< ='9' & & s[i]> ='0') { int k=i; while (s[k]< ='9' & & s[k]> ='0') k++; string a=""; for (int j=0; j< i; j++) a=a+s[j]; a=a+"zz"; for (int j=k; j< s.length(); j++) a=a+s[j]; s=a; } } cout < < s; } //про пустые строки не поняла. могла где то допустить ошибку, но вроде все как то так
Espivak
Могу в предложить в данном случае использовать goto и метки. ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) то на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. т.е. if a< 0 tnen begin writeln('вы ввели неверные данные'); goto 1 else goto 2; метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

От программы записанной на алгоритмическом языке, перейдите к записи программы паскаль. определите, что будет напечатано в результате работы программы, если были введены следующие числа: 1; 5; -10; 3; -8; 6; 4; 0. алгоритм. язык алг. цел s, x нач s: =0 нц ввод х s: =s+x кц при х=0; вывод s кон
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

llmell6
yatania-popovich7
Дмитрий192
АлександрАлександровна
Pastel-sova
Динков
gorsimonyan4
Рогова Ольга1156
bogdanovaoksa
sky-elena712558
emik071089
Тинчурина1528
korolev-comitet8825
Ekaterina1654
MN-Natusik80