Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>
#include <iostream>
using namespace std;
int main(){
int a, sum;
sum = 0; a = 1;
while (a != 0){
cin >> a;
sum = sum + a;
}
cout << "Сумма = " << sum << endl;
}
-------------------------------------
Пример:
-------------------------------------
-5
5
4
-2
0
Сумма = 2
Указывайте, пожалуйста, язык программирования.
Могу предоставить код на C++:
int main(){
for(int x = 0; x <=20; x+=2)
{
printf("%i",9*(x*x)+6*x);
}
}
На pascal всё гораздо муторней.
var x,i:integer;
begin
x := 0;
for i:= 1 to 11 do
begin
writeln(9*(x*x)+6*x);
x := x + 2;
end;
end.
Присвоить к переменной A текст введенный с клавиатуры.
К переменной i присвоим длину текста в переменной А.
Переменная J присвоить 0.
Переменная к присвоим 0, "к" = количество буквы "к" в тексте
Запустить цикла от J до i с шагом 1.
В теле цикла.
Проверим "к" = А[J] (А[1] = первая буква из теста,)
К переменной "к" присвоить "к+1". при условии если "к" = А[J] .
Если "к" не равно А[J] то без изменения.
Вывод "к"
101011
(Я люблю ограничение по символам)