Вариант 22. два сплава
имеется два сплава из двух металлов, соотношение этих металлов
в каждом из сплавов известно. программа должна определять, какое
количество объёмных единиц первого и второго сплава нужно взять,
чтобы получить третий сплав с заданным соотношением этих
металлов.
входные данные. соотношение двух металлов в первом сплаве,
во втором сплаве и в требуемом сплаве, а также количество объёмных
единиц третьего сплава, которое требуется получить.
выходные данные. количество объёмных единиц первого и
второго сплава, которые следует соединить, для получения заданного
количества третьего сплава, либо сообщение о том, что получить
третий сплав из имеющихся двух невозможно.

напишите код решения отдельных моментов: оба соотношения в сплаве больше 1 и оба соотношения в сплаве меньше 1.или объясните, почему тогда нет решения в положительных числах.

// pascalabc.net

// версия 3.3.5 сборка 1662 (29.04.2018)

а

begin

    println('кол-во символов -',readstring('слово-> ').length)

end.

пример:

741258963

кол-во символов - 9

б

begin

    var s: =readstring('слово-> ').tolower;

    println(s[1]=s[s.length]? '': 'не ');

end.

пример:

слово-> олово

в

begin

    var s: =readstring('слово-> ');

    println(s[1],s[2],s[s.length]);

end.

пример:

слово-> плотина

п л а

г

begin

    println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');

end.

пример:

слово-> виноград

четно

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

зависит от скорости чтения ученика 

пусть будет 160 с/м

время прочтения 30 мин

1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд.