Жесткий диск пуст и имеет объем  160  гбайт.

 

а)  сколько книг, каждая из которых состоит из  256страниц, на каждой странице  128  строк, в каждой строке  64  символа, можно записать на такой жесткий диск (каждый символ кодируется одним байтом)?

​

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end

картинка должна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.