Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
На паскале
var a, b, c: real; // можно integer
begin
readln (a);
readln (b);
c:=a+b; //или -
writeln (c);
end.
Ответ:
Объяснение:
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.
Браузеры Программы, с помощью которых просматриваются гипертексты в системе Всемирной паутины, называют
Можно с большой степенью достоверности утверждать,что большинство приложений,которые предназначены для выполнения хотя бы какой-нибудь полезной работы,тем или иным образом используют структурированную информацию или ,другими словами ,упорядоченные данные.Такими данными могут быть,например,списки заказов на тот или иной товар,списки предъявленных и оплаченных счетов или список телефонных номеров ваших знакомых