Новые вопросы

Информатика Архивный вопрос

Блоксхему пж
program wk;
var x,a,b,c:integer;
begin
Readln(x);
A:=x mod 10;
b:=x div 100;
c:=(x div 10)mod 10;
x:=a100+b10+c;
Writeln(x);
Writeln(a,' ',b,' ',c);
end.

1 комментария:

Тут нет ветвлевния. Блок схема: Старт - Ввод данных - Вычисления - Вывод данных - Конец

Ответы

Гость

Тут нет ветвлевния. Блок схема: Старт - Ввод данных - Вычисления - Вывод данных - Конец

Тут нет ветвлевния. Блок схема: Старт - Ввод данных - Вычисл

Нет комментариев

Похожие вопросы

Информатика

Блоксхему пж
Program b4;
Var n:byte;
Begin
write('Введите номер месяца: ');readln(n);
Case n of
1,2,12:writeln('Зима');
3..5:writeln('Весна');
6..8:writeln('Лето');
9..11:writeln('Осень')
else writeln('Не корректный номер месяца');
End;
End....

Ответить

Информатика

Составить программу решения линейного уравнения ax + b = 0, где а не равно 0....

Ответить

Информатика

Блок схему пж
Program b3;
var a, i, p: Integer;
begin
WriteLn(a);
Read(a);
p := 3;
for i := 1 to 5 do
begin
p := p * a;
WriteLn(p);
end;
end....

Ответить

Информатика

Блок схему пж
program pr1;
var a,b,c:byte;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
if b>c then begin b:=b+c; c:=b-c; b:=b-c;end;
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
writeln('a=',a,' b=',b,' c=',c);
end....

Ответить

Информатика

Помогите с информатикой пожалуйста!...

Ответить

Информатика

Pascal
.Вычислить значения многочлена 2a^5*3a^2-1.7a+12 для a=0,1,5,3,4,5,….10.5....

Ответить

Список предметов

Математика

Литература

Русский язык

Геометрия

Английский язык

Биология

Другие предметы

Обществознание

Окружающий мир

География

Українська мова

Українська література

Қазақ тiлi

Беларуская мова

Информатика

Экономика

Французский язык

Немецкий язык

Психология