Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Dolar7
0 / 0 / 0
Регистрация: 12.06.2013
Сообщений: 22
#1

переведите на С++ 2 - C++

17.06.2013, 18:11. Просмотров 183. Ответов 0
Метки нет (Все метки)

переведите на С++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var a : string;
    i,s,c : longint;
begin
  clrscr;
write('Введите текст ');
readln(a);
write('Стоимость одного слова ');
readln(c);
s:=0;
repeat;
    for i:=1 to length(a)do
    if (a[i]=' ') 
    or (a[i]+a[i+1]+a[i+2]='ЗПТ')
    then s:=s+c;
    until a[i]='Т';
    s:=s+c;
write('стоимость телеграммы: ',s);
  rea
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 18:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос переведите на С++ 2 (C++):

переведите на С++ - C++
переведите на С++ Var s,p:string; b:char; i:integer; Begin Write('Input text:'); Readln(s); Write('Input letter:');...

Переведите на С - C++
Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив ( где каждая строка стороны...

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

Переведите формулу на C++ - C++
Переведите пожалуйста вот эту формулу на язык C++. прикрепите картинку к сообщению Заранее Спасибо.

Переведите программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Файл F...

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2013, 18:11
Привет! Вот еще темы с ответами:

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru