begin Write('Что будем искать?: '); ReadLn(x); if x = 'скорость' then begin Write('Введите расстояние: '); ReadLn(s); Write('Введите время: '); ReadLn(t); WriteLn('Скорость=', s / t); end else if x = 'время' then begin Write('Введите расстояние: '); ReadLn(s); Write('Введите скорость: '); ReadLn(v); WriteLn('Время=', s / v); end else if x = 'расстояние' then begin Write('Введите скорость: '); ReadLn(v); Write('Введите время: '); ReadLn(t); WriteLn('Расстояние=', v * t); end else WriteLn('Неверно указано, что будем искать.'); end.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadReal('Цена первой покупки:'); var c2:=ReadReal('Цена второй покупки:'); var c3:=ReadReal('Цена третьей покупки:'); var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s); var p:=ReadReal('Внесена сумма:'); Writeln('Причитается сдача: ',p-s) end.
Пример Цена первой покупки: 152.40 Цена второй покупки: 375 Цена третьей покупки: 140.62 Сумма к оплате: 668.02 Внесена сумма: 700 Причитается сдача: 31.98
Подсчитать количество чётных цифр, неравных 6 в введённом числе с массива в паскале ( Пример 1213 - кол-во цифр =1)
Объяснение: