По информатике тут из цыфр должно быть 100101011001001010101010100010111011101010101001100101010101 011010010011110100001010101010101010001001010010100100101001001 10101100101010010010100010 1101001010101010001010010
Наверное, можно и своими словами объяснить. Ну ты сам(а) логический порассуждай чем различие и сходство между древним и современным компьютеров. Ну например, У современных компьютеров мощный процессор, болшая память, множество программ, игр, и все это в одном небольшом системном блоке. Это очень компактно! А у старых компьютеров память еле-еле достигали 1 гб. А так же скорость, ну это просто ужас.Компьютер оперировал 72 числами, состоящими из 23 десятичных разрядов, затрачивая по 3 секунды на операции сложения и вычитания. Умножение выполнялось в течение 6 секунд, деление — 15,3 секунды, на операции вычисления логарифмов и выполнение тригонометрических функций требовалось больше минуты.
Program Tlg; var s:string; i,n:integer; p:real; begin Writeln('Введите текст телеграммы, разделяя слова ровно одним пробелом'); Readln(s); Write('Укажите стоимость слова в рублях: '); Read(p); n:=1; for i:=1 to length(s) do if s[i]=' ' then Inc(n); Writeln('Стоимость телеграммы, руб: ',n*p:0:2) end.
Тестовое решение: Введите текст телеграммы, разделяя слова ровно одним пробелом Грузите апельсины бочками братья Карамазовы Укажите стоимость слова в рублях: 3.78 Стоимость телеграммы, руб: 18.90
program RevStr; var s,s1:string; i,j,n:integer; begin Write('Исходная строка: '); Readln(s); s:=' '+s; n:=length(s); i:=n; j:=n; s1:=''; while i>0 do begin j:=i; while (s[j]=' ') and (j>1) do Dec(j); { удалили пробелы } i:=j; while (s[j]<>' ') and (j>1) do Dec(j); { пробежали по непробелам } if j>0 then s1:=s1+' '+Copy(s, j+1, i-j); i:=j-1 end; s1:=Copy(s1,2,length(s1)-1); Writeln(s1) end.
Тестовое решение: Исходная строка: А роза упала на лапу Азора Азора лапу на упала роза А
