Переменная chp должна быть типа integer. И нужно исправить строку<em> s[1]:=chp; </em>на строку <em>s[1]:=s[chp];</em>
uses crt;
var a,n,code,chp:integer;
var s:string;
var ch1:char;
begin
writeln('Введи число, первые и последние цифры поменяются местами');
readln(a);
str(a,s);
ch1:=s[1];
chp:=length(s);
s[1]:=s[chp];
s[chp]:=ch1;
val(s,n,code);
writeln('Из числа ',a,' получилось число ',n);
end.
V = 800*600*4 = 1920000 бит = 240000 байт ≈ 234,38 Кб
1. uses crt;
var k:integer;
a:real;
begin
clrscr;
a:=10;
k:=1;
while a<=20 do
begin
a:=a+a*10/100;
k:=k+1;
end;
writeln ('Норма превысит 20 км на ',k,' день');
end.
2.
uses crt;
var k:integer;
m:array [1..15] of real;
begin
clrscr;
m[1]:=0.1;
m[2]:=0.1;
for k:=3 to 15 do
begin
m[k]:=m[k-1]+m[k-2];
end;
for k:=1 to 15 do
writeln (k:3 ,' день',m[k]:8:1,' кг');
end.
s = list(map(str, input().split()))
print(s[2] + ' ' + s[0][0] + '.' + s[1][0] + '.')
Картинка с заполненной таблицей прикреплена,рассказываю сам алгоритм
Берём 640*480 пикселей и 4 бита
Всего точек на экране: 640*480=307200
Необходимый объём видеопамяти: Умножаем количество битов на количество точек на экране: 307200*4=1228800 бит
1 Килобайт=2 в 10 степени байт= 2 в 13 степени бит
1 Мегабайт=2 в 20 степени байт=2 в 23 степени бит
Как же перевести из битов в килобайт?
Берём наше решение-1228800 бит
вычисляем 2 в 13 степени=8192
1228800/8192=150 Кб и дальше по такой же схеме делаешь
