0 / 0 / 0
Регистрация: 20.04.2013
Сообщений: 20
1

Перевести с Паскаля в С++

19.06.2013, 10:23. Показов 302. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  str: string;
  i,k: integer;
begin
  write('Введите строку: ');
  readln(str);
  for i:=1 to length(str) do
    if str[i] in ['A','a'] then 
      k:=k+1;
  writeln('В строке ',k,' латинских букв "а"');
  readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2013, 10:23
Ответы с готовыми решениями:

Перевести с паскаля на си
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; ...

Перевести с Паскаля на Си
1) program zad1; uses crt; var b,p,a,a2,b2:real; begin write('цена товара a= '); ...

перевести из паскаля в с++
var B: String; N, L, Count: Integer; begin Writeln('Введите целое число: '); ...

Перевести из Паскаля на С++
var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць');...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2013, 10:23

перевести с Паскаля в с++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); ...

Перевести с паскаля
program maximum; var a: array of integer; // массив масс предметов max: integer; // масса самого...

C Паскаля перевести в С++
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program...

Перевести с паскаля на С++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:='';...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru