Ответ:
Объяснение:
1) program z1;
var a,sum:integer;
begin
a:=0;
sum:=0;
while (a<0) or (a=0) do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
2) program z2;
const N = 10;
var i:integer;
var b,d:real;
var a:array[1..N] of integer;
begin
for i:=1 to N do
readln (a[i]);
for i:=1 to N do
write(a[i]:4);
writeln;
for i:=1 to N do
begin
b:=sqrt(a[i]);
d:=frac(b);
if d=0 then
write (a[i]:4);
end;
end.
1-4
2-вообще, программа составлена неверно(being), но если не считать этого, то i=s=5
5-3
6-(A*B)/(C*D)/E
7-не указан символ ";" после команды 2c:=b2*b2
8-10
9-4
10-(ac+bc^2-bcd-a+b^2)/(bc)+0.11
Число делить на 100 и умножать на 102 каждый раз. Что сложного?
Код на C#, мало чем отличается:
int K = Convert.ToInt32(textbox1.Text); // заменяешь функцией чтения введённого значения
int otvet = K/100*102; // твой ответ
Если тебе нужна программа для переворачивания числа,вот тебе она на C :
#include <iostream>
using namespace std;
int main()
{
double x;
double y;
cin >> x; /* Ввод числа */
y = 1/x;
cout << "y = " << y << endl;
return 0;
}