Информатика в школе |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Информатика в школе » Задачи по программированию » Помогите решить задачу на Паскале.
Дан массив и надо поменять местами диагонали. Н-р:
Дано:
5 2 7
4 6 8
1 9 3
Резутат:
7 2 5
4 6 8
3 9 1
Вот у меня начало.
const n=100;
var
massiv:array[1..n,1..n] of integer;
res:array[1..n,1..n] of integer;
row,column:integer;
begin
Randomize;
writeln('исходный массив');
for row:=1 to n do begin
for column:=1 to m do begin
massiv[row,column]:=random(100);
write(' ',massiv[row,column]:2);
end;
writeln;
end;
Отредактировано eduard (2010-03-12 14:54:45)
Помогите решить задачи по информатике
три задачи
1.Вывести на экран монитора количество сотен,содержащихся в трехзначном числе,введенном с клавиатуры.
введенное число=598
результат=5
2.Определить и вывести на экран монитора сумму цифр трехзначного числа
3.Дано четырехзначное число первая цифра возводится в третью степень,вторая в квадрат,а разность три и четыре остается неизменным сложив три полученных числа.
Задача 1.
var x:integer;
begin
readln (x);
x:=x div 100;
writeln('Число сотен равно ', x);
readkey
end.
Задача 2
var x:integer;
begin
readln (x);
x:=x div 100 + x mod 10 + x div 10 mod 10;
writeln('Сумма цифр равна ', x);
readkey
end.
А третья непонятно написано...
Вы здесь » Информатика в школе » Задачи по программированию » Помогите решить задачу на Паскале.