Температуру можно измерить по шкале Фаренгейта, либо по шкале Цельсия. Если известна температура по Цельсию, можно определить значение этой температуры по Фаренгейту так: умножить на 9 температуру по Цельсию, разделить результат на 5 и прибавить 32. Напишите программу для определения температуры по Фаренгейту для пяти значений температуры по Цельсию: 0, 15, 30, 45, 60. Используйте цикл-до.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

(неясно-пиши в личку)

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

космонафт   відповідь на