Напишите код программы. определите результат выполнения алгоритма ​

var a,b,c: integer;

begin

a: =2;

b: =6;

c: =a+b;

writeln(c);

end.

значение "c" будет равняться 8.

Ғаламтордың пайдасы

Ғаламтор - ғылым мен техниканың шынайы жетістігі. Ол - сөзсіз. Интернетті қолдана алатын кез келген адам өзіне қалаған ақпарат мен мағлұматты тауып, қажетіне жарата алады. Мазалап жүрген сауалдарының жауабын табады. Әлемдік жаңалықтар мен оқиғалардан хабардар болып отыруға көмектеспек. Бұл жағынан интернет адамның білімі мен қабілетін, тұлғалық қасиеттерін дамытуға ықпал етеді.

Ғаламтордың зиянды жақтары

Өкінішке орай, жоғарыда айтылған ғаламтордың артықшылықтарына қарамастан, оның зиян жақтары да көп болып шықты. Ғаламторға деген тәуелділік қазір ғаламдық мәселеге айналып бара жатыр. Соның кесірінен адамдар арасындағы күнделікті байланыс бұзылып барады. Адамдар бір-бірімен сөйлесуді, әңгімелесуді, сырын бөлісуді ұмытып бара жатқандай. Жылы шырай танытып, шүлдірлеп сөйлесуден, жанды, табиғи қатынастан қалып барамыз.

Ғаламтордың келесі зиянды тұсы - адамның денсаулығы. Компьютер алдында ұзақ отырған адамның денсаулығы да нашарлай түседі. Өйткені ол қозғалыстан қалып, оның соңы бел, арқа, көз ауруларына әкелуі мүмкін.

Одан бөлек, қазіргі таңда ғаламторда алаяқтар да көбейді. Олардан сақтанудың да қамын жасаған абзал.

Program stroka; var   s: string;   i, k: integer;   c: char; begin   readln(s);   c : = s[1];   i: =1;   while i< =length(s) do       if (s[i]=',') or (s[i]='.') then       begin           if s[i-1]=c then inc(k);           if s[i]=',' then c : = s[i + 1]           else c: ='.';           i: =i+2       end       else inc(i);   writeln(k);   readln end.