Информатика в школе

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Информатика в школе » Задачи по программированию » Помогите решить задачу на Паскале.


Помогите решить задачу на Паскале.

Сообщений 1 страница 3 из 3

1

Дан массив и надо поменять местами диагонали. Н-р:
Дано:
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)

0

2

Помогите решить задачи по информатике
три задачи
1.Вывести на экран монитора количество сотен,содержащихся в трехзначном числе,введенном с клавиатуры.
введенное число=598
результат=5
2.Определить и вывести на экран монитора сумму цифр трехзначного числа
3.Дано четырехзначное число первая цифра возводится в третью степень,вторая в квадрат,а разность три и четыре остается неизменным сложив три полученных числа.

0

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.

А третья непонятно написано...

0


Вы здесь » Информатика в школе » Задачи по программированию » Помогите решить задачу на Паскале.


Рейтинг форумов | Создать форум бесплатно © 2007–2017 «QuadroSystems» LLC