Помогите с написанием задач на Free Pascal

[ressuscitant]

1. дано ребро куба. Найти площадь боковой поверхности
2. Даны 3 действительных числа. Возвести в квадрат те из них, значения которых неотрицательны
3. Дано натуральное число n (n>9999) и натуральное число m. Найдите сумму m последних цифр числа n.
4. Дана последовательность символов. Подсчитать наибольшее число букв "а", идущих подряд в данной последовательности.

Помогите, ПОЖАЛУЙСТА!
Ну, ООЧЕНЬ НАДО....

 

[desert]

Первая очень простая

var
 a:byte{или то что тебе надо};
begin
read(a);
writeln(6*sqr(a));
end.

 

[desert]

Вторая тоже очень простенькая

var
 a, b, c: real;
begin
read(a, b, c);
if a>0 then a:=sqr(a);
if b>0 then b:=sqr(b);
if c>0 then c:=sqr(c);
writeln(a, b, c);

 

[desert]

третья задача

var
 n:longint;
 m, sum, i:byte;
begin
read(n, m);
i:=0;
while i<m do begin
  i:=i+1;
  sum:=sum*10+n mod 10;
  n:=n div 10;
end;
writeln(sum);
end.

 

[desert]

Последняя

var
 stroka:string;
 i, max, tmp:integer;
begin
read(stroka);
max:=0;
tmp:=0;
for i:=1 to length(stroka)do begin
 if  stroka[i]='a' then tmp:=tmp+1 else begin
   if tmp>max then max:=tmp;
   tmp:=0;
 end;
end;
writeln(max);
end.

 

[ressuscitant]

СПАСИБО Большое!!!!
СПАСИБО!!!))))

 

[infinity]

Ой...какая тема....
Прямо в "кассу"...

А мне еще не поможете, а?

2)Простые числовые типы данных
Треугольник задан длинами сторон.Найти длины высот.
3)Условный оператор
Даны действительные числа a,b,c. Удвоить эти числа,если a>b>c и заменить их абсолютными значениями,если это не так.
4) Операторы циклов
Найти сумму квадратов чисел от m до n.
5) Символьный тип данных
Дана строка символов. Получить все символы, расположенные между первым и вторым двоеточиями. Если второго двоеточия нет, то все символы после первого двоеточия.

ПОЖЖЖАЛУЙСТА!!!!!

 

[desert]

3) задача

var
 a, b, c:integer;
begin
read(a,b,c);
if (a>b)and(b>c)then begin a:=2*a; b:=2*b; c:=2*c; end else begin 
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln(a,' ',b,' ',c);

 

[desert]

4)

var
 m, n, i:integer;
 sum:longint;
begin
sum:=0;
for i:=m to n do begin
sum:=sum+sqr(i);
end; 
writeln(sum);
end.

 

[desert]

5)

var
 stroka, otvet:string;
 i:integer;
 res:boolean;
begin
res:=false;
read(stroka);
for i:=1 to length(stroka) do begin
   if stroka[i]=':' then break;
end;
i:=i+1;
while res=false do begin
otvet:=otvet+stroka[i];
i:=i+1;
if stroka[i]='i' then res:=true;
end;
writeln(otvet);
end.

 

[desert]

2) Там формула с 8 класа ГЕОМЕТРИИ. Я уже не помню

var
 a,b,c:integer;
 ha,hb,hc:real;
begin
read(a,b,c);
ha:=форула№1
hb:=форула№2
hc:=форула№3
writeln(ha,' ',hb,' ',hc);

Если вспомню, то напишу

 

[Призрак]

Найдите сумму m последних цифр числа n.

  sum:=sum*10+n mod 10;

Следует писать так:

  sum:=sum+n mod 10;

 

[Призрак]

if stroka[i]='i' then res:=true;

Следует читать:

if stroka[i]=':' then res:=true;

Мой вариант пятого задания (ИМХО оптимальней немного):

var
 stroka, otvet:string;
 i:integer;
 res:boolean;
begin
res:=false;
read(stroka);
for i:=1 to length(stroka) do 
   if stroka[i]=':' then 
      if res then break
      else res=true
   else if res then otvet:=otvet+stroka[i];
writeln(otvet);
end.

 

[desert]

Призрак спасибо что исправил мои ошибки. (просто работаю без компилятора (Винт форматирнул), поетому проверить не мог)

 

[AlexZir]

desert
В топике #3 тип, пожалуйста, поменяйте на REAL, там по условию даны действительные числа.

 

[xdonisimox]

Народ,а помогите и мне ришить задачку!ПЛИЗЗЗ! НАЙТИ ВСЕ ТРЁХЗНАЧНЫЕ ЧИСЛА, СУММА ЦИФР КОТОРЫХ РАВНА K.

 

[imported_Feona]

Lsass.exe

Здравствуйте!

Очень рассчитываю на вашу помощь.

При загрузке винды появляется окошко с текстом "Lsass.exe системная ошибка. Не удалось выделить требуемый объем в журнале реестра".

После нажатия кнопки ОК - перезагрузка до того же экрана.

Поиск в интернете результатов не дал. Именно такую ошибку не встретила ни разу не где.

Заранее спасибо!

 

[Endrew]

Проблемы с LSASS.EXE
В случае неполадки с LSASS.EXE Windows XP перезагрузит компьютер, отобразив окно об ошибке. Такое происходит при заражении вирусом. Если этот файл удалён, Windows XP отобразит чёрный экран с белым курсором

---------- Добавлено в 22:22 ---------- Предыдущее сообщение было написано в 22:21 ----------

проверьте антивирусом компьютер ,если ничего не найдете ,то сюда http://pchelpforum.ru/f26/t6442/#post37758

 

[imported_Feona]

Так есть ли способы исправить положение? Или только переустановка?

Спасибо!!

 

[01pump]

Так есть ли способы исправить положение? Или только переустановка?

1) Вы можете вспомнить когда эта проблема стала появляться?
2) Вы можете скачать образ LiveCD для попытки восстановления системы?
3) У вас есть CD диск с дистрибутивом Windows с которого ставили систему?