Var a,a1,a2,a3,a4,a5,b:integer; begin write('a = '); readln(a); a1:=a div 10000; a2:=a div 1000 mod 10; a3:=a div 100 mod 10; a4:=a mod 100 div 10; a5:=a mod 10; b:=a5*10000+a4*1000+a3*100+a2*10+a1; writeln('b = ',b); end.
Так как язык программироваия ты не написал, дам ответ на Си++, в данном примере от чистого Си отличается только вводом выводом (cin,cout-scanf,printf) Решение: #include "stdafx.h" #include <iostream> using namespase std; int main() { setlocale(0,""); int A[5]; cout<<"Введите пятизначное число, разделяя каждую цифру пробелом"<<endl; for(int i=0;i<5;i++) { cin>>A[i]; } cout<<"Перевёрнутое число:"<<endl; for(int i=4;i>=0;i--) { cout<<A[i]; } return 0; }
Or - "ИЛИ". Если одно из условий верно, то и все выражение принимает истину [ 0 or 1 = 1 ; 1 or 0 = 1; 1 or 1 = 0, 0 or 0 = 0], где 1 - истина, а 0 - ложь у тебя условие If(k>9) or (k<14) then условие k > 9 выполняется, а значит и все выражение верно Нужно заменить "OR" на "AND" оператор "И". [ 1 and 1 = 1 ] при всех остальных - ложь
Вот код
var k: integer; begin readln(k); if k > 17 then Writeln('ваша оценка 5. Молодец!'); if (k > 13) and (k < 18) then Writeln('ваша оценка 4.'); if(k > 9) and (k < 14) then Writeln('ваша оценка 3.'); if k < 10 then Writeln('ваша оценка 2.'); end.
Информатика-это наука о получения, накопления, хранения, преобразования, передачи, защиты и использования информации. Информатика изучает автоматизированную обработку информации при компьютеров. С тех пор, как последние существуют, программисты создавать такие программы, которые позволяют компьютерам выполнять задачи, для решения которых биологическим существам потребовалось бы наличие разумного сознания. Простейший пример — это выполнение арифметических операций. Однако очевидно, что умножая числа, компьютеры не используют сознания.
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531