Поменять цикл while на do...while #include
#include
#include
#include
using namespace std;
int main()
{
float b,x,t,z;
printf ("\n");
printf (" b| x| t| z|\n");
printf ("\n");
b=3.5;
{
printf ("%f\n",b);
x=1,t=0;
while (x<=2)
while (t<=1)
{
z=b*x*sqrt(t+b)*(t*x+2.1);
printf (" %f| %f| %f\n",x,t,z);
t=t+0.2;
x=x+0.2;
}
printf("\n");
return 0;
}
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}