М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
алина3882
алина3882
21.11.2022 17:12 •  Информатика

Здравствуйте.Можете сказать, где ошибка ?

👇
Открыть все ответы
Ответ:
Sidoriva
Sidoriva
21.11.2022

Объяснение:

#include<iostream>

#include<math.h>

using namespace std;

Int main()

{

Double ch,min,sec,ch1,min1,sec1,ch2,min2,sec2,minut;

setlocale (LC_ALL, " rus");

cout<<"Введите время начала разговора ch1, min1, sec1 " << "\n";

cin>>ch>>min>>sec;

Cout<<"Введите врямя конца разговора ch2 ,min2, sec2 "<<"\n";

cin>> ch2>>min2>>sec2;

ch=ch2-ch1;

min=min2-min1;

sec=sec2-sec1;

min=ch*60+min+(sec/60);

minut=min*30;

Cout<<"Стоимость разговора = "<<minut<< " копеек "

return 0;

}

4,4(85 оценок)
Ответ:

язык программирования любой?

пишу на Python:

s = str(input())

s = sorted(s[:len(s)-1].split(', '))

for word in s:

print(word, ' ', end='')

Pascal:

var s, copy_s, word_s:string;

i, n, count:integer;

a:array of string ;

begin

count:=0;

write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');

readln(s);

copy_s:= s;

while pos(',', copy_s) > 0 do begin

n:= pos(',', copy_s);

delete(copy_s, n, 1);

count:=count+1;

end;

count:= count + 1;

SetLength(a, count);

for i:=1 to count-1 do begin

n:= pos(',', s);

word_s:= copy(s, 1, n-1);

delete(s, 1, n);

a[i]:=word_s;

end;

word_s:= copy(s, 1, length(s)-1);

a[count]:= word_s;

for i:=1 to count-1 do

if a[i] > a[i+1] then begin

word_s:=a[i];

a[i]:=a[i+1];

a[i+1]:=word_s;

end;

for i:=1 to count do

writeln(a[i]);

end.

4,4(59 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ