Program prog;
Uses crt;
var i,s,a: integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('NUM',i,' = ');
readln(a);
if ((a mod 2)=0) then s:=s+a;
end;
writeln;
writeln('Sum = ', s);
End.
program c1;
var
i,n:integer;
x:longint;
begin
x:=1;
write('Введите n: ');
readln(n);
for i:=1 to n do
if (i mod 2=1) then x:=x*i;
writeln(x);
end.
При условии, что в книге символы кодируются 1 байтом, объем текста определяется так: 360*48*64*1/1024=1080 Кбайт
Для 10 иллюстраций остается 2580-1080=1500 Кбайт
На 1 иллюстрацию 150 Кбайт
Объем памяти для хранения 1 пикселя изображения:
150*1024/(480*160)=2 байта = 16 бит
Количество оттенков = 2^16=65536
===== PascalABC.NET =====
-1-
begin
var x := ReadReal('Введите вклад?');
var n := ReadInteger('Введите срок?');
for var i := 1 to n do
begin
x *= 1.03;
Writeln(i, ' год - ', x:0:2, ' руб')
end
end.
-2-
begin
for var i := 1 to 10 do
Writeln('5*', i, ' = ', 5 * i)
end.
-3-
begin
var s := ReadSeqReal('Введите 5 любых чисел:', 5).Sum;
Println('Их сумма равна', s);
end.
#include <stdio.h>
#include <stdlib.h>
int main()
{
printf("Input of 10 elements on an interval [-10; 10]:\n");
int a = -10, b = 10, i, arr[10];
for(i = 0; i < 10; i++)
{
printf("\na[%d] = ", i);
scanf("%d", &arr[i]);
}
for(i = 0; i < 5; i++)
{
arr[i] = -arr[i];
}
for(i = 5; i < 10; i++)
{
arr[i] = -arr[i];
}
printf("\nMassiv with inversion:\n");
for(i = 0; i < 10; i++)
{
if(arr[i] >= a && arr[i] <= b)
{
printf("\na[%d] = %d", i, arr[i]);
}
else printf("\nError input");
}
return 0;
}