Масса кольца. вычислить массу кольца по радиусу меньшей окружности r1, радиусу большей окружности r2 и толщине, равной k, сделанного из железа, плотность которого 7,8 г/см^3

Var r1,r2,k,m: real; begin write('r1 = '); readln(r1); write('r2 = '); readln(r2); write('k = '); readln(k); m: =pi*(r2*r2-r1*r1)*k*7.8; writeln('m = ',m: 5: 2); end. пример: r1 = 5 r2 = 7 k = 2 m = 1176.21

паскаль:

 

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

 

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

 

 

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

 

ps а вообще, каждое нужно писать отдельно