Составьте программу которая подсчитывает количество и стоимость затрачиваемого бензина на путь.Pascal ABC

Знания

Информатика

1 ответ:

JuliyaPdc [1.1K]4 года назад

0 0

Uses crt;const benz=37.10;var km,summ:real;beginwriteln('Введите km');readln(km);summ:= benz*km;clrscr;writeln('***************');writeln('*** Цена ***');writeln('***************');writeln('* Бензин | КМ *');writeln('* ',benz,' | ',km,' *');writeln('***************');writeln('**** Сумма ****');writeln('***************');writeln('* ',summ,' рублей *');writeln('***************');end.

Читайте также

Пользователь работал с файлом c: Home/9klass/inf.doc. затем он поднялся на два уровня вверх создал католог text в нем создал еще

Екатерина Марцинюк

С:/home/text/foto/test.doc

0 0

1 год назад

Перевести число 793 в двоичную,.восьмиричную, шестнадцатиричную системы

Artemev [7]

Число 793 в двоичной системе счисления (BIN): 000000000000001100011001.Восьмеричное значение (OCT) для десятичного числа 793: 00001431.Число 793 в шестнадцатеричной системе счисления (HEX): 000319.

0 0

4 года назад

Ребята, помогите пожалуйста

Lady Lena [21]

Вот такое соответствие:
1) - 1
2) - 2
3) - 4

0 0

4 года назад

Дан одномерный массив.Проверить встречается ли в нем символ знак вопроса и посчитать сколько раз

Ралина Данисовна

Var s:string;
n,l,k,i:integer;
begin
write ('Введите строку: ');
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord('?');
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.')
else writeln ('Знак вопроса встретился ',k,' раз строке.');
end.

0 0

3 года назад

1) Сколько единиц в двоичной записи чисел 115; 183; 167. 2) Перевести из 2СС в 10СС: 111011; 100100; 1111011; 1101101; 1111111

aerodinamic

2) 100100=37
1111011=89
1101101=75
1111111=93

0 0

4 года назад