yna21289
?>

Условие задания: Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 3 единицам. Алгоритм: сместиться в точку (4, 4) опустить перо сместиться на вектор (..., 3) сместиться на вектор (..., 0 сместиться на вектор (0, ...) сместиться на вектор

Информатика

Ответы

egorova90356684858370

var


 i, si, N, ss: Integer;


 s: string;


begin


   Write ('Введите N: ');


   ReadLn (N);


   s := IntToStr (N);


   ss := 0;


   for i := 1 to Length (s) do begin


     si := StrToInt (s [i]);


     if si mod 4 <> 0 then


       ss := ss + si;


   end;


   Writeln ('Сумма цифр = ' + IntToStr (ss));


end.

// второй вариант решения

var

si, N, ss: Integer;

begin

Write ('Введите N: ');

ReadLn (N);

ss := 0;

while N > 0 do begin

si := N mod 10;

N := N div 10;

if si mod 4 <> 0 then

ss := ss + si;

end;

Writeln ('Сумма цифр = ' + IntToStr (ss));

end.

shuramuji

#include <iostream>

using namespace std;

int main() {

   string a,b;

   int m,k=0;

   cout<<"a = "; cin>>a;  

   cout<<"b = "; cin>>b;

   int ind=b.length();

   if (a.length()==b.length())

       while ((a[k]==b[k]) && (k<b.length()-1)) k++;

   for (int i=k; i<b.length()-1; i++) {

      if (b[i]==48) break;

      m=b[i+1]-48;

      if (i<b.length()-2) m--;

      if ((b[i]-48)*m < max((b[i]-49),1)*9) {

         if ((b[i]-49==0) && (i>0)) continue;                              

         ind=i+1; b[i]--; break;

      }  

   }                            

   for (int i=ind; i<b.length(); i++) b[i]='9';

   if (b[0]=='0') b.erase(0,1);

   cout<<b<<endl;

   system("pause");      

   return 0;

}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Условие задания: Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 3 единицам. Алгоритм: сместиться в точку (4, 4) опустить перо сместиться на вектор (..., 3) сместиться на вектор (..., 0 сместиться на вектор (0, ...) сместиться на вектор
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

skorykin123371
officem695
мурувватовна викторович569
beglovatatiyana
lagutkins
shalunovroman
maksimovskiy7657
metelkin7338
innavinogradova1385
sashab82
kbndbyb6
sadkofamily61
turaev-1098
universal21vek116
eshabunina