Написать программу, которая вводит целые числа и складывает их, пока не будет введено число 0. вывести сумму чисел , введённых до 0.

Var   sum, num: integer; begin   repeat     readln(num);     if (num = 0) then       break;     write(sum, ' + ', num, ' = ');     sum : = sum + num;     writeln(sum);   until ( false); end.

Var    a1,a2,a3: string;   begin   write ('введите 1-е слово: ');   readln (a1);   write ('введите 2-е слово: ');   readln (a2);   write ('введите 3-е слово: ');   readln (a3);   if (length(a1)< > length(a2)) and (length(a1)< > length(a3))     then       if length(a1)< length(a2)          then           if length(a1)< length(a3)             then writeln('самое короткое слово: ',a1)             else writeln('самое короткое слово: ',a3)         else           if length(a2)< length(a3)             then writeln('самое короткое слово: ',a2)             else writeln('самое короткое слово: ',a3)     else writeln('все слова одинаковой длины'); end. введите 1-е слово: волк введите 2-е слово: олень введите 3-е слово: косуля самое короткое слово: волк

      во-первых, там должно стоять d латинское. 7.46d1 = 7.46 × 10¹ = 74.6       буква d "пришла" из языка fortran. числа в формате с плавающей точкой могли занимать 4 или 8 байт и назывались соответственно числами с одинарной и двойной (double precision) точностью. при записи констант в программе, а также при вводе и выводе нужно было как-то различать, какой точности число, поэтому договорились писать вместо цифры 10, за которой следовал показатель степени, букву e (exponent) для одинарной точности и букву d для двойной.       когда был создан "младший брат" фортрана - язык basic - велосипед изобретать на стали и вместе с синтаксисом для записи формул, в бейсик перекочевали и буквы e, d для записи чисел с плавающей точкой.       в современных версиях языков записи 7.46d1 и 7.46e1 как правило эквивалентны, поскольку обозначают одно и то же число, а современные процессоры всегда работают в двойной точности.