Форум программистов, компьютерный форум CyberForum.ru

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

Восстановить пароль Регистрация
 
Dolar7
 Аватар для Dolar7
0 / 0 / 0
Регистрация: 12.06.2013
Сообщений: 22
17.06.2013, 18:11     переведите на С++ 2 #1
переведите на С++

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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 18:11     переведите на С++ 2
Посмотрите здесь:

Переведите на С C++
Переведите формулу на C++ C++
Переведите программу в C++ C++
переведите на С++ C++
Переведите с Java в С++ C++
Переведите с Pascal на C++ C++
Переведите с Pascal на C++ C++
Переведите с Pascal в C++ C++
C++ Переведите с Pascal на C++
C++ Переведите с Pascal на C++
C++ Переведите из Pascal в C++
Переведите с паскаля в С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 10:30. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru