Три задачи

[abarmot_1]

ВЫСОКО УВАЖАЕМЫЕ ПРОГРАМИСТЫ ПОМОГИТЕ ДЕВУШКЕ РЕШИТЬ ЗАДАЧИ))) ПЛИЗ СРОЧНО НАДО. ВОТ УСЛОВИЯ
1)Вывести на экран квадраты натуральных чисел от 1 до 50
2)Написать программу для алгоритма «Одеться по погоде», т.е. если погода выше 0, одеть куртку, если погода ниже 0, одеть шубу
3)Составить программу получения на экране монитора изображения квадрата черного цвета на фиолетовом фоне

[GetMax]

Первая.

Var
   i:Word;
Begin
   For i:=1 to 50 do
   Writeln(Sqr(i),' ');
   Readln
End.

[SkuLLL]

вторая
var t:integer;
begin
writeln('Сколько градусов?');
readln(t);
if t>0 then writeln('Одень куртку!') else writeln('Одень шубу!');
readln;
end.

[Stilet]

ВЫСОКО УВАЖАЕМЫЕ ПРОГРАМИСТЫ

Высоко уважая - предлагаю найвысочайщее решение

format PE console
entry start
 
include 'D:\fasmw16726\INCLUDE\win32a.inc'




section '.data' data readable writeable

message db '%d',13,10,0

section '.code' code readable executable

start:

 mov ecx,50
okak:
 mov eax,ecx
 xor edx,edx
 mul eax
 push ecx
 cinvoke printf,message,eax
 pop ecx
loop okak
  cinvoke getch
; INVOKE аналогичный макрос для STDCALL-функций. 
  invoke ExitProcess,0
 ret

section '.idata' import data readable
library kernel,'kernel32.dll',\
        msvcrt,'msvcrt40.dll'
 
import kernel,\
       ExitProcess,'ExitProcess'
 
import msvcrt,\
       printf,'printf',\
       getch,'_getch'

[SkuLLL]

предлагаю найвысочайщее решение

класно!)))))

[abarmot_1]

спасибо Вам большое!!!

[junger@]

Пожалуйста помогите решить три задачи!!!
1) дано натуральное число;
-сколько раз данная цифра А
встречается в данном числе ( A вводится с клавиатуры)
-верно ли,что в данном числе сумма цифр больше B,а само число делится на В ( В вводится с клавиатуры)
2)найдите все четырех значные числа,которые есть две одинаковые цифры.
3)из данного натурального числа удалить все цифры A ( A вводится с клавиатуры)