Блок-схемы - во вложениях
1.
Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
writeln('Введите стороны треугольника');
write('Введите а');
readln(a);
write('Введите b');
readln(b);
write('Введите c');
readln(c);
p:=(a+b+C)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника равна ',s);
end.
2.
Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
write('Введите длину основания ');
readln(a);
write('Введите ширину основания ');
readln(b);
write('Введите высоту параллелепипеда ');
readln(h);
s := 2*(a*b+b*h+h*a);
v := a*b*h;
r := 4*(a+b+h);
writeln('Объём равен ',v);
writeln('Площадь полной поверхности равна ',s);
writeln('Сумма рёбер равна ',r);
end.
#include <iostream>
#include <cmath>
#include <vector>
using namespace std;
signed main() {
char ok[10]{ 'b', 'v', 'g', 'd', 'z', 'l', 'm', 'n', 'r', 'w'};
string s;
getline(cin,s);
vector<string> words,ans;
string cur;
for(int i = 0; i < s.length(); i++){
if(s[i] != ' ') cur += s[i];
else{words.push_back(cur); cur.clear();}
}
for(auto i: words){
bool norm = false;
for(auto j: i)
if(strchr(ok,tolower(j))) norm = true;
if(norm) ans.push_back(i);
}
for(auto i: ans) cout << i << "\n";
}
а) x = 5
б) x = 4