//1.
const god1=1626;
god2=2015; bank=0.07; var
summa:real;
begin
summa:=24;
for var i:=god1 to god2 do
summa:=summa+(summa*bank);
writeln(summa);
end.
//2.
var
a,b:integer;
begin
read(a);
b:=0;
for var i:=1 to length(inttostr(a)) do begin
b:=b*10+a mod 10; a:=a div 10;
end;
writeln(b);
end.
//3.
const s=0.05;
var
d:integer;
z:real;
begin
read(z);
d:=0;
repeat
inc(d);
z:=z-z*s;
until z<=30;
writeln(d);
end.
//4.
var
b,c:integer;
a:real;
begin
writeln('Кол-во $ и какой проц. годовых?');
readln(a,b);
c:=0;
while a<1000000 do begin
a:=a+a*(b/100);
inc(c);
end;
writeln(c);
end.
//5.
const max=100;var
a,b,c,d:integer;
begin
b:=0;
writeln('Кол-во машин?');
read(d);
writeln('Перечислите вес груза');
read(a);
c:=a;
for var i:=1 to d-1 do begin
read(a);
while c<=max do begin
inc(b);
c:=c+a;
end;
end;
writeln(b);
<span>end.
</span>//ABC Pascal
1. За основную единицу измерения количества информации принят …
А) 1 бит
2. Переведите число 101010101 из двоичной системы счисления в десятичную.
D) 341
3. В какой системе счисления хранится информация в компьютере с технической точки зрения?
А) двоичной
4. Сколько секунд минимум потребуется модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать 100 страниц текста в 30 строк по 60 символов каждая, при условии что каждый символ кодируется одним байтом?
D) 62,5 с
5. Число 11010111 в двоичной системе счисления соответствует числу в восьмеричной системе счисления:
D) 327
6. Современный компьютер - это …
В) многофункциональное электронное устройство для работы с информацией
7. В подъезде 16 квартир. Сколько информации несет сообщение о том, в какой квартире живет Ваш друг?
С) 4 бита
8. Накопителем информации является
С) диск
9. Четвертое поколение ЭВМ сконструировано на основе
А) больших интегральных схем
10. Во время исполнения программа хранится в
С) оперативной памяти
11. Единица выводимой информации при работе дисплея в графическом режиме называется…:
В) пиксель
12. Каков минимальный объем памяти (в Кб), достаточный для хранения растрового изображения размером 128 х 128 пикселей, если известно, что используется палитра из 256 цветов.
С) 16 Кбайт
13. Для хранения растрового изображения размером 64 х 64 пикселя отвели 1,5 Кб памяти. Каково максимально возможное число цветов в палитре.
С) 8
14. Понятие "телекоммуникация" означает
В) обмен информацией на расстоянии
15. Электронная почта позволяет передавать
С) сообщения и приложенные файлы
// PascalABC.NET 3.0, сборка 1088
var
a:array[1..5,1..5] of byte;
i,j:byte;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin a[i,j]:=i+j-2; Write(a[i,j]) end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
01234
12345
23456
34567
45678
Только я черточку сверху заменила на другой знак,с одинаковым значением
Ну, без высоты же не обойтись
var
a, b, h: <em>real</em>;
begin
readln(a, b, h);
writeln('S = ', (a * 0.5 + b / 2) * h);
<span>end.</span>
