Pascal. дана строка типа '500 рублей' в которой первые несколько символов (цифровые) обозначают стоимость товара а затем после пробела идут символы (буквенные) обозначающие валюту перевести стоимость товаров в числовую форму и подсчитать их сумму

238

411

Посмотреть ответы 2

Ответы на вопрос:

НАСТЯ7539

Информатика

4,5(54 оценок)

Pascalabc.net (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) если под turbopascal или free то будет выглядеть иначе const s = 10; var a : array of char; i,l : integer; r : real; begin setlength (a,1); read (a[0]); i : = 0; while a[i] < > ' ' do begin i : = i +1; setlength (a,i+1); read (a[i]); end; r : = 0; l : = i-1; for i : = 0 to l do begin r : = r + (ord(a[i]) - 48) * power (s,(l-i)); end; writeln (r); end.

katherinepierce1864

Информатика

4,7(60 оценок)

Программа выводит число 30, кароче, в начале программы для переменной s мы присваиваем число 2, затем крутим цикл 3 раза и с каждой прокруткой присваиваем переменной s выражение s+n*2 например вот работа цикла: 1-й оборот: s = 2 + 2*2 =6 2-й оборот: s = 6 + 3*2 = 12 3-й : s = 12 + 4*2 = 20 4-й: s = 20 + 5*2 = 30 и в конце выводим результат s. объяснил возможно коряво но попробуй понять.