легче некуда

[33artem]

задание такое.
вычислить сумму квадратов цифр пятизначного числа
(легче некуда вот так мне препод сказал тока я сделать не могу)

[Siluet]

вроде работает

program ss;
uses crt;
var x,q,sum:integer;
    begin
    readln(x);
    while true do begin
    q:=x mod 10; x:=(x-q) div 10;
    if q<1 then break;
    sum:=sum+sqr(q);   end;
    writeln('summa=',sum);
end.

[33artem]

извини канеш но такую и я могу написать онаж не пашет

[__STDC__]

var
	s:string;
	sum,i:integer;
begin
	readln(s);
	for i:=1 to length(s) do 
		sum := sum + sqr(ord(s[i]) - 48);
	writeln(sum);
	readln;
end.

та тоже верно сделана... ваша проблема в том, что вы не знаете о сочетании клавиш alt-f5... или о readln/readkey...

[Siluet]

Сообщение от 33artem

извини канеш но такую и я могу написать онаж не пашет

с чего ты взял что она не пашет ?

[33artem]

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

с чего ты взял что она не пашет ?

программа выдает 2 результата 100 или 0

[Siluet]

у меня почему-то все работает..
Ввожу любое число-все вычисляет

[33artem]

спасибо вам обоим что потратили на меня время может поможите и сэтой задачкой
Данна матрица в каждом столбце произвести следующие действия
а) если 1 элемент каждого столбца отрицательный то возвести в квадрат все элементы этого столбца
б) если 1 элемент столбца больше 0 возвести все элементы в куб
в) если 1 элемент равен 0 все элементы столбца оставить без изменения

[Siluet]

у тебя есть какие-нибудь наработки ?
Если есть выложи..
а то с нуля все в лом писАсть..

[33artem]

странно я в вожу 55555 и мне выводит сумма = 0