Записать на языке паскаля. a2+b2 (в квадрате) (s+p2) x+y/2 15x-7/2

1) var c,a,b: real; begin readln (a); readln (b); c: =(a*a+b*b)*(a*a+b*b); writeln (c); end. 2) var c,s,p: real; begin readln (s); readln (p); c: =s+p*p; writeln (c); end. 3) var c,x,y: real; begin readln (x); readln (y); c: =x+y/2; writeln (c); end. 4) var c,x: real; begin readln (a); c: =15*x+3,5; writeln (c); end.

Sqr(a*2+b*2) (s+p*2) x+y/2 15*x-7/2 вроде так,если честно не понятно написан вопрос 

Всё в скриншотах

Объяснение:

Поскольку вы не указали на каком языке написать код для 3го задания. Я написал на СИ.

1ая блок схема - 2 задание.

2ая блок схема и код - 3 задание.

upd: Прикрепил код qBasic 4ый скрин

Код:

temp = 3

result = 0

counter = 1

nextstep:

WHILE counter < 16

   IF (temp MOD 2 = 0) THEN  

   temp = temp + 5

   GOTO nextstep

   END IF

   result = result + temp

   counter = counter + 1

   PRINT temp;

   PRINT " ";  

   temp = temp + 5

WEND

PRINT

PRINT "result = ";

PRINT result

зміна масштабу без втрати якості і практично без збільшення розмірів вихідного файлу;

максимальна точність побудованого зображення (координати точок, між якими можуть бути проведені криві, можуть мати точність до сотих доль мікрона);

файл з векторним зображенням має набагато менший розмір порівняно з растровим зображенням;

малюнок має високу якість при друкуванні, особливо це добре помітно при високоякісному друці;

можливість редагування всіх частин векторного зображення експорт векторного малюнка в растровий.