Program zuevyuliya;
var a,sum,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for a:=a to b do
inc(sum,a);
writeln('sum=',sum);
<span>end.</span>
1. Мощность алфавита - 32 символа. На один символ требуется 5 бит.
2. Общее количество информации переданное за 3 минуты:
20*180=3600 байт = 28800 бит
3. Всего символов было передано:
28800/5 = 5760
using System;
namespace ConsoleApp4
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите число:");
int n, sum = 0;
n = Int32.Parse(Console.ReadLine());
if (n != 0)
{
do
{
sum += n;
Console.WriteLine("Введите число:");
n = Int32.Parse(Console.ReadLine());
} while (n != 0);
Console.WriteLine("Сумма равна: " + sum);
} else
{
Console.WriteLine("Сумма равна: " + sum);
}
}
}
}
Можно записать как:
s := 3,14 * r * r
или
s := pi * r * r
если есть константа числа пи
Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.