Переведите с Pascal на С begin write( Введите - вопрос №16910613 от Ева433 28.02.2020 19:39

Question

Информатика: Переведите с Pascal на С begin write( Введите символ: ); readln(c); case c of 0 .. 9 :writeln( digit ); A .. Z , a .. z :writeln( lat ); А .. Я , а .. я :writeln( rus ); else writeln( Другой символ ); end; end.

Ева433 · Answer

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
function Euclid(a,b:integer):integer;
begin
while a<>b do if a>b then a-=b else b-=a;
Result:=a
end;

begin
var a,b,c,d:integer;
Write('Числитель и знаменатель первой дроби: ');
Read(a,b);
Write('Числитель и знаменатель второй дроби: ');
Read(c,d);
var zn:=b*d;
var ch:=a*d-c*b;
var sgn:=Sign(ch); ch:=Abs(ch);
var gcd:=Euclid(ch,zn);
Write('Результат вычитания: ');
if sgn=-1 then Write('-');
Writeln(ch div gcd,'/',zn div gcd)
end.

Тестовое решение:
Числитель и знаменатель первой дроби: 7 12
Числитель и знаменатель второй дроби: 3 4
Результат вычитания: -1/6

Переведите с Pascal на С begin write('Введите символ: '); readln(c); case c of '0'..'9' :writeln('digit'); 'A'..'Z','a'..'z':writeln('lat'); 'А'..'Я','а'..'я':writeln('rus'); else writeln('Другой символ'); end; end.

Переведите с Pascal на С
begin
write('Введите символ: ');
readln(c);
case c of
'0'..'9' :writeln('digit');
'A'..'Z','a'..'z':writeln('lat');
'А'..'Я','а'..'я':writeln('rus');
else writeln('Другой символ');
end;
end.