Заполнить квадратную матрицу В(10,10) единицами в шахматном порядке, начиная с верхнего левого угла

[x93]

Ребят, спасибо огромное, я с вашей помощью решила задачку! Еще просьба.
Множественный тип данных, подруга зависла:

Дан текст-строка из латинских букв и других знаков. Подсчитать сколько букв, сколько знаков.

Помогите, если несложно!

[Stilet]

Примерно так:

var s:string;
 b,z,i:integer;
begin
 s:='adgkasd&^%%SHgdjd*&%';
 for i:=1 to length(s) do
  if s[i] in ['A'..'Z','a'..'z'] then inc(b) else inc(z);
 writeln('Букв=',b,'  Прочего=',z);
 readln;
end.

[x93]

Спасибо огромное!!!!!!!!!!!!!!!!

[x93]

1.Модуль CRT. Работа с клавиатурой и экраном

Изобразите на экране пирамиду сбоку, состоящую из разноцветных ступеней. В центре каждой разместите своё имя из разноцветных символов

2. Организация меню. Разработка базы данных

Разработать БД для хранения информации о:городах (название, площадь, количество жителей, плотность населения).
При решении задачи этого пункта необходимо реализовать меню для работы с программой, которое должно обеспечивать пользователя следующими возможностями:
- просмотр записей БД
– всех, в табличной форме;
– по одной, режим «карточка».
- добавление/удаление записи в БД;
- поиск информации в БД;
- выход из программы.

[Evanvaha]

Сообщение от aggressor74

Помогите пожайлусто с задачей:
Дан двухмерный массив, заполненный нулями и единицами. Найти прямоугольник наибольшей площади, заполненный единицами.
(нужно написать прогу в С) ну или хотя бы блок-схему

мне нужно на Делфи..буду очень благодарен!

[Serge_Bliznykov]

Дан двухмерный массив, заполненный нулями и единицами. Найти прямоугольник наибольшей площади, заполненный единицами.

смотрите такую тему: МИННОЕ ПОЛЕ В Delphi

На квадратном клетчатом листе бумаги размером 100х100 клеток нарисована схема минных полей в виде прямоугольников.
Каждый прямоугольник состоит из целых клеток, различные прямоугольники не накладываются друг на друга и не соприкасаются. Напр:
111000111110000
111000111110000
000000111110000
000000000000000
001000011100011
000000011100011
000000011100000
Задан массив размером 100х100, в котором элемент a[i,j]=1, если клетка [i,j] принадлежит какому-либо минному полю (заминирована) и a[i,j]=0 в противном случае.
Написать программу, которая сосчитает и напечатает число прямоугольников.
Программа в Delphi