program n;
uses crt;
var i,s:integer;
begin
s:=0;
for i:=50 to 600 do
if (i mod 8)=0 then s:=s+i;
writeln(s);
<span>end.</span>
Ну а чего тут писать то... как бы ты отняла 153 от 875 ?
875-153 ..: в позиционной системе счисления(которой является десятичная система_то есть от позиции зависит значение числа...) алгоритм таков..: 1) отнимаем единицы _если единиц не хватает то занимаем у десятков(10 единиц занимаем)... отнимаем 2) отнимаем десятки..если десятков не хватает занимаем десятки у тысяч (10 сотен занимаем) ... и так далее в зависимости от того на сколько длинные числа...
вообще говоря десятичную системы проходят на всем курсе математики... почему вы не знаете алгоритм _как вычесть из одного числа другое _это очень странно...а как сдачу считать в магазине?)
Var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=x/2-x ;writeln('y = ',y);end.
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.
Заполненная таблица в приложении.
отчисления на рекламу скопировать и вставить с транспонированием, тогда строка превращается в столбец.