Переведите с Pascal на С begin write( Введите символ: ); readln(c); case c of 0 .. 9 :writeln( digit - id1691059520220527 от Mesnikfff 27.05.2022 15:59

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.

Mesnikfff · Accepted Answer

//FPC 2.6.4

var
a: array of longint;
size, i, j: longint;
begin
randomize;
writeln('Колво элементов: ');
readln(size);

setLength(a, size);
write('Исходный случайный массив: ');
for i:=0 to size-1 do
begin
a[i]:=random(201)-100;
write(a[i], ' ');
end;
writeln;

for i:=0 to size-2 do
for j:=0 to size-i-2 do
if a[j]>a[j+1] then
begin
a[j]:=a[j] xor a[j+1];
a[j+1]:=a[j] xor a[j+1];
a[j]:=a[j] xor a[j+1];
end;

writeln('Отсортированный массив: ');
for i:=0 to size-1 do write(a[i], ' ');
writeln;

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.

MOGZ ответил

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

MOGZ ответил

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