[Alan85]

Да незашто... Давно не программировал ничего - вот решил вспомнить как это да и за одно помочь . Все довольны

[Balthazar]

помогите перевести эту задачу пожалуйста:
uses crt;
var st:string;
i,j:byte;
begin
writeln('Введите арифметическое выражение: ');
readln(st);
for i:=2 to length(st) do begin
if st[i-1] in ['+','-','*','/'] then
if st[i] in ['+','-','*','/'] then
inc(j);
end;
for i:=2 to length(st) do begin
if (st[i-1] in ['0'..'9']) and (st[i] in [' '])
and (st[i+1] in ['0'..'9'])then inc(j);
if (st[i-1] in ['+','-','*','/']) and (st[i] in [' '])
and (st[i+1] in ['+','-','*','/'])then inc(j);
end;
if j=0 then
writeln('Данное выражение записано верно!')
else
writeln('Данное выражение записано не верно!');
end.
как не пытался постоянно выдаёт какую-то ошибку

[samira040694@vk]

помогите пожалуйста перевести программу в си ++

Program pr1;
Uses crt;
Var n:integer;
a,c,k,ka,kc,kr:byte;
m:set of byte;
Begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
repeat
write('Введите цифру a=');
readln(a);
until a in [0..9];
k:=0;//cколько всего цифр
ka:=0;//сколько=а
kc:=0;//сколько четных
kr:=0;//сколько разных
m:=[];
while n>0 do
begin
k:=k+1;
c:=n mod 10;
if c mod 2=0 then kc:=kc+1;
if c=a then ka:=ka+1;
if not (c in m) then
begin
kr:=kr+1;
m:=m+[c];
end;
n:=n div 10;
end;
writeln('Четных цифр=',kc);
writeln('Разных цифр=',kr);
if ka>2 then write('Цифра ',a,' встречается больше 2 раз')
else write('Цифра ',a,' встречается не больше 2 раз');
readln
end.

[Бородай Роман]

program Boolean4;
var
A,B: Integer;
begin
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Writeln((A>2) and (B <=3));
end.

[mrcnn]

program Boolean4; »

Код:

#include <stdio.h>

void main()
{
int A,B;
printf("'Введите число A: ");
scanf("%d", &A);
printf("'Введите число B: ");
scanf("%d", &B);
printf("%d\n", A>2 && B<=3);

}